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This is the Simplified Chinese translation of most/y-adequate-guide, thank 
Professor Franklin Risby for his great work! 


关于 本 书 


这 本 书 的 主题 是 函数 范式 (functional paradigm ) ， 我 们 将 使 用 JavaScript 这 个 世 
界 上 最 流行 的 函数 式 编程 语言 来 讲述 这 一 主题 。 有 人 可 能 会 觉得 选择 JavaScript 并 
不 明智 ， 因 为 当前 的 主流 观点 认为 它 是 一 门 命令 式 (imperative) 的 语言 ， 并 不 适 

合用 来 讲 函 数 式 。 但 我 认为 ， 这 是 学 习 函 数 式 编程 的 最 好 方式 ， 因 为 : 


。 你 很 有 可 能 在 日 常 工作 中 使 用 它 
这 让 你 有 机 会 在 实际 的 编程 过 程 中 学 以 致 用 ， 而 不 是 在 空闲 时 间 用 一 门 深奥 的 
函数 式 编程 语言 做 一 些 玩具 性 质 的 项 目 。 

。 你 不 必 从 头 学 起 就 能 开始 编写 程序 


在 纯 函 数 式 编程 语言 中 ， 你 必须 使 用 monad 才能 打印 变量 或 者 读 取 DOM 节 
点 。JavaScript 则 简单 得 多 ， 可 以 作 商 走 捷径 ， 因 为 毕 竞 我 们 的 目的 是 学 写 纯 
函数 式 代 码 。JavaScript 也 更 容易 入 门 ， 因 为 它 是 一 门 混合 范式 的 语言 ， 你 随 
时 可 以 在 感觉 吃力 的 时 候 回 退 到 原 有 的 编程 习惯 上 去 。 


。 这 门 语言 完全 有 能 力 书写 高 级 的 函数 式 代码 


只 需 借 助 一 到 两 个 微型 类 库 ，JavaScript 就 能 模拟 Scala 或 Haskell 这 类 语言 
的 全 部 特性 。 虽 然 面 向 对 象 编 程 (Object-oriented programing) 主导 着 业界 ， 


但 很 明显 这 种 范式 在 JavaScript 里 非常 笨拙 ， 用 起 来 就 像 在 高 速 公路 上 露营 或 
者 穿着 橡胶 套 娃 跳 踢踏舞 一 样 。 我 们 不 得 不 到 处 使 用 bind 以 免 this 不 
知 不 觉 地 变 了 ， 语 言 里 没有 类 可 以 用 (目前 还 没有 ) ， 我 们 还 发 明了 各 种 变通 
方法 来 应 对 忘记 调用 new 关键 字 后 的 怪异 行为 ， 私 有 成 员 只 能 通过 闭 包 
(closure) 才能 实现 ， 等 等 。 对 大 多 数 人 来 说 ， 函数 式 编程 看 起 来 更 加 自然 。 


以 上 说 明 ， 强 类 型 的 函数 式 语言 毫 无 疑问 将 会 成 为 本 书 所 示范 式 的 最 佳 试 验 场 。 
JavaScript 是 我 们 学 习 这 种 范式 的 一 种 手段 ， 将 它 应 用 于 什么 地 方 则 完全 取决 于 你 
自己 。 幸 运 的 是 ， 所 有 的 接口 都 是 数学 的 ， 因 而 也 是 普 适 的 。 最 终 你 会 发 现 你 习惯 


> 
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了 swiftz、scalaz、haskell 和 purescript， 以 及 其 他 各 种 数学 偏向 的 语言 。 


Gitbook (更 好 的 阅读 体验 ) 
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础 知识 。 这 是 初版 草稿 ， 所 以 我 会 及 时 更 正 发 现 的 的 错误 。 欢 迎 


提供 帮助 ! 

第 2 部 分 讲述 类 型 类 (type class) ， 比 如 functor 和 monad， 最 后 会 讲 到 到 
traversable。 我 希望 能 塞 进来 一 些 monad transformer 相关 的 知识 ， 再 写 一 个 
纯 函 数 的 应 用 。 

第 3 部 分 将 开始 游 走 于 编程 实践 与 学 院 学 究 之 间 。 我 们 将 学 习 comonad 、 下 
algebra、free monad、yoneda 以 及 其 他 一 些 范畴 学 概念 。 


第 1 章 : 我 们 在 做 什么 ? 
介绍 


你 好 ， 我 是 Franklin Risby 教授 ， 很 高 兴 认 识 你 。 接 下 来 我 们 将 共度 一 段 时 光 了 ， 
因为 我 要 教 你 一 些 函 数 式 编程 的 知识 。 好 了 ， 关 于 我 就 介绍 到 这 里 ， 你 怎么 样 ? 我 

希望 你 已 经 熟悉 JavaScript 语言 了 ， 关 于 面向 对 象 也 有 一 点 点 的 经 验 了 ， 而 且 自 认 

为 是 一 个 合格 的 程序 员 。 希 望 你 没有 昆虫 学 博士 学 位 也 能 找到 并 杀 死 一 些 自 忠 
(bug) 。 





我 并 不 假设 你 之 前 有 任何 函数 式 编程 相关 的 知识 我 们 都 知道 假设 的 后 果 是 什么 
( 译 者 注 : 此 处 原文 是 “we both know what happens when you assume”， 源 自 一 
名 名 言 “When you assume you make an ASS of U and ME”， 意 思 是 “让 两 人 都 难 
堪 ?) 。 但 我 猜想 你 在 使 用 可 变 状态 (mutable state) 、 无 限制 副作用 
(unrestricted side effects ) 和 无 原则 设计 (unprincipled design) 的 过 程 中 已 经 遇 
到 过 一 些 麻 烦 。 好 了 ， 介 绍 到 此 为 止 ， 我们 进入 正题 。 


本 章 的 目的 是 让 你 对 函数 式 编程 的 目的 有 一 个 初步 认识 ， 对 一 个 程序 之 所 以 是 函数 
式 程 序 的 原因 有 一 定 了 解 ， 要 不 然 就 会 像 无 头 苍 蝇 一 样 ， 不 问 青 红包 白地 避免 使 用 
对 象 这 等 于 是 在 做 无 用 功 。 写 代码 需要 遵循 一 定 的 原则 ， 就 像 水 流 消 和 急 的 时 候 
你 需要 天 文 罗盘 来 指引 一 样 。 





现在 已 经 有 一 些 通 用 的 编程 原则 了 ， 各 种 缩写 词 带 领 我 们 在 编程 的 黑暗 隧道 里 前 
行 : DRY (不 要 重复 自己 ，don't repeat yourself) ， 高 内 聚 低 耦 合 (loose 
coupling high cohesion ) ，YAGNI (你 不 会 用 到 它 的 ，ya aint gonna need it) ， 
最 小 意外 原则 (Principle of least surprise) ， 单 一 责任 (single responsibility) 等 


rc 


村 “。 

我 当然 不 会 哆 里 八 嗪 地 把 这 些 年 我 听 到 的 原则 都 列举 出 来 ， 你 知道 重点 就 行 。 重 点 
是 这 些 原则 同样 适用 于 有 函数 式 编程 ， 只 不 过 它们 与 本 书 的 主题 不 十 分 相关 。 在 我 们 
深入 主题 之 前 ， 我 想 先 通过 本 章 给 你 这 样 一 种 感 党 ， 即 你 在 殴 键 盘 的 时 候 内 心 就 能 
强烈 感受 到 的 那 种 函数 式 的 氛围 。 


汪 人 同年 全 于 


我 们 从 一 个 轧 屯 的 例子 开始 。 下 面 是 一 个 海鸥 程序 ， 乌 群 合并 则 变 成 了 一 个 更 大 的 
鸟 群 ， 繁 殖 则 增加 了 乌 群 的 数量 ， 增 加 的 数量 就 是 它们 繁殖 出 来 的 海鸥 的 数量 。 注 
意 这 个 程序 并 不 是 面向 对 象 的 良好 实践 ， 它 只 是 强调 当前 这 种 变量 赋值 方式 的 一 些 


SS 


var Flock = function(n) { 
this.seagulls = n; 


je 


Flock.prototype.conjoin = function(other) { 
this.seagulls += other.seagulls; 
return this; 


}; 


Flock.prototype.breed = function(other) { 
this.seagulls = this,.seagulls * other.seagulls; 
return this; 


ys 


var flock a = new Flock(4); 
Var flock b = new Flock(2); 
Var flock c = new Flock(0); 


var result = flock a.conjoin(flock _c).breed(flock_b).conjoin(flo 
ck_a.breed(flock _b)).seagulls; 
//=> 32 


我 相信 没 人 会 写 这 样 糟 糕 透 顶 的 程序 。 代 码 的 内 部 可 变 状 态 非 常 难以 追踪 ， 而 且 ， 
最 终 的 答案 还 是 错 的 ! 正确 答案 是 16 ， 但 是 因为 flock_a ed 
地 改变 了 ， 所 以 得 出 了 错误 的 结果 。 这 是 IT 部门 混乱 的 表现 ， 非 常 粗 暴 的 计算 

式 。 


如 果 你 看 不 懂 这 个 程序 ， 没 关系 ， 我 也 看 不 懂 。 重 点 是 状态 和 可 变 值 非常 难以 追 
踪 ， 即 便 是 在 这 么 小 的 一 个 程序 中 也 不 例外 。 


我 们 试 试 另 一 种 更 函数 式 的 写法 : 


var conjoin = function(flock x, flock y) { return flock x + floc 


k_y }; 
var breed = function(flock x, flock y) { return flock x * flock_ 


y }; 


var flock a = 4; 
Var flock b = 2; 
Var flock c = 0; 


Var result = conjoin(breed(flock b, conjoin(flock a, flock c)), 
breed(flock a, flock_b)); 
//=>16 


很 好 ， 这 次 我 们 得 到 了 正确 的 答案 ， 而 且 少 写 了 很 多 代码 。 不 过 函数 瞬 套 有 点 让 人 
费解 ... (我 们 会 在 第 5 章 解决 这 个 问题 ) 。 这 种 写法 也 更 优雅 ， 不 过 代码 肯定 是 越 
直 白 越 好 ， 所 以 如 果 我 们 再 深入 挖掘 ， 看 看 这 段 代码 究竟 做 了 什么 事 ， 我 们 会 发 
现 ， 它 不 过 是 在 进行 简单 的 加 ( conjoin ) 和 乘 ( breed ) 运算 而 已 。 


代码 中 的 两 个 函数 除了 有 函数 名 有 些 特殊 ， 其 他 没有 任何 难以 理解 的 地 方 。 我 们 把 它 
们 重 命名 一 下 ， 看 看 它们 的 丨 面目 。 


var add = function(x, y) { return x + y }; 
var multiply = function(x, y) { return x * y }; 


Var flock_a 4; 
var flock_b 
Var flock_c 0 


ll 
D 


Var result = add(multiply(flock b, add(flock a, flock c)), multi 
ply(flock a, flock_b)); 
//=>16 


这 么 一 来 ， 你 会 发 现 我 们 不 过 是 在 运用 古人 早已 获得 的 知识 : 


// 结合 人 律 (assosiative) 


add(add(x, y), z) == add(x, add(y, z)); 


// 交换 律 (commutative) 
add(x, y) == add(y, x); 


// 同一 律 (identity) 
add(x, 0) == x; 


// 分 配 律 (distributive) 
multiply(x, add(y,z)) == add(multiply(x, y), multiply(x, 2z)); 


些 9 数学 定律 迟早 会 派 上 有 用场。 不 过 如 果 你 一 时 想 en td 
经 很 久 没 复习 过 这 些 数学 知识 了 。 我 们 来 看 看 能 否 运 用 这 些 定律 简化 这 


// 原 有 代码 
add(multiply(flock b, add(flock a, flock c)), multiply(flock a, 
flock_b)); 


// 应 用 同一 律 ， 去 掉 多 余 的 加 法 操作 (add(flock_ a, flock_c) == flock a) 
add(multiply(flock b, flock a), multiply(flock a, flock_b)); 


/ 和 古话 从 于 
/ / 二 人 a | 7 广 日 D 伴 


mulLtipJly(flock_b，add(flock_a，Tflock_a))，; 


漂亮 ! 除了 调用 的 函数 ， 一 点 多 余 的 代码 都 不 需要 写 。 当 然 这 里 我 们 定义 add 和 
multiply 是 为 了 代码 完整 性 ， 实 际 上 并 不 必要 一 一 在 调用 之 前 它们 肯定 已 经 在 
某 个 类 库 里 定义 好 了 。 


可 能 在 想 " 你 也 太 偷 换 概念 We 
Er 比 这 复杂 太 多 ， 不 能 这 么 简单 地 推理 "。 我 之 所 以 选择 这 样 一 个 例子 ， 是 因 
为 大 多 数 人 都 知道 (as 0 理解 数学 可 以 如 何 为 我 们 所 用 。 


不 要 感到 绝望 ， 本 书后 面 还 会 穿插 一 些 范畴 学 (category theory) 、 集 合 论 (set 
theory) 以 及 lambda ee ， 教 你 写 更 加 复杂 的 代码 ， 而 且 一 点 也 不 输 本 章 

这 个 海鸥 程序 的 简洁 性 和 准确 性 。 你 也 不 需要 成 为 一 个 数学 家 ， 本 书 要 教 给 你 的 编 
程 范式 实践 起 来 就 像 是 使 用 一 个 普通 的 框架 或 者 api 一 样 。 


你 也 许 会 惊讶 ， 我 们 可 以 像 上 例 那 样 遵 循 函 数 式 的 范式 去 书写 完整 的 、 日 常 的 应 用 


程序 ， 有 着 优异 性 能 的 程序 ， 简 洁 且 吻 推 理 的 程序 ， 以 及 不 用 每 次 都 重新 造 轮子 的 
程序 。 如 果 你 是 罪犯 ， 那 违法 对 你 来 说 是 好 事 ; 但 在 本 书 中 ， 我 们 希望 能 够 承认 并 


遵守 数学 之 法 。 


我 们 希望 去 践 行 每 一 部 分 都 能 完美 接合 的 理论 ， 和 希望 能 以 一 种 通用 的 、 可 组 合 的 组 
件 来 表示 我 们 的 特定 问题 ， 然 后 利用 这 些 组 件 的 特性 来 解决 这 些 问 题 。 相 比 命令 式 
( 稍 后 本 书 将 会 介绍 命令 式 的 精确 定义 ， 暂 时 我 们 还 是 先 把 重点 放 在 函数 式 上 ) 编 
程 的 那 种 “ 某 某 去 做 某 事 ”的 方式 ， 函 数 式 编程 将 会 有 更 多 的 约束 ， 不 过 你 会 震惊 于 
这 种 强 约束 、 数 学 性 的 “框架 "所 带 来 的 回报 。 


我 们 已 经 看 到 函数 式 的 点 点 星光 了 ， 但 在 丫 正 开始 我 们 的 旅程 之 前 ， 我 们 要 先 掌握 
一 些 具体 的 概念 。 


第 2 章 :一 等 公民 的 函数 


第 2 章 : 一 等 公民 的 有 函 


快速 概览 


当 我 们 说 函数 是 “一 等 公民 ”的 时 候 ， 我 们 实际 上 说 的 是 它们 和 其 他 对 象 都 一 样 ... 所 
以 就 是 普通 公民 《〈 坐 经 济 舱 的 人 ? ) 。 郊 数 站 没 什么 特殊 的 ， 你 可 以 像 对 待 任何 其 


A 


他 数据 类 型 一 样 对 待 它们 一 一 把 它们 存在 数组 里 ， 当 作 参 数 传递 ， 赋 值 给 变量 ... 等 


和 大 和 


村 “。 


这 是 JavaScript 语言 的 基础 概念 ， 不 过 还 是 值 es I ， 因 为 在 Github 上 随便 
一 搜 就 能 看 到 对 这 个 概念 的 集体 无 视 ， 或 者 也 可 能 是 无 知 。 我 们 来 看 一 个 杜撰 的 例 
本 


const hi = name => HI ${name} ; 
const greeting = name => hi(name); 


这 里 greeting 指向 的 那个 把 hi 包 了 一 层 的 包 庄 函数 完全 是 多 余 的 。 为 什 
么 ? 因为 JavaScript 的 函数 是 可 调用 的 ， 当 hi 后 面 紧 跟 () Myer 
并 返回 一 个 值 ; 如 果 没 有 () ，hi 就 简单 地 返回 存 到 这 个 变量 里 的 函数 。 我 们 
来 确认 一 下 : 


hi; // name => HI $tname 


DateoiomaSig /A hi onase 


greeting 只 不 过 是 转 了 个 身 然 后 以 相同 的 参数 调用 了 hi 函数 而 已 ， 因 此 我 们 
可 以 这 人 么 


const greeting = hi; 
greeting("times"); // "Hi times" 


换 句 话说 ，hi 已 经 是 个 接受 一 个 参数 的 函数 了 ， 为 何 要 再 定义 一 个 额外 的 包 谚 
函数 ， 而 它 仅 仅 是 用 这 个 相同 的 参数 调用 hi ?完全 没有 道理 。 这 就 像 在 大 夏天 
里 穿 上 你 最 厚 的 大 衣 ， 只 是 为 了 跟 热 空气 过 不 去 ， 然 后 吃 上 个 冰棍 。 申 是 脱 裤 子 放 
屁 多 此 一 举 。 


用 一 个 函数 把 另 一 个 函数 包 起 来 ， 目 的 仅仅 是 延迟 执行 ， 卜 的 是 非常 糟糕 的 编程 习 
惯 。( 稍 后 我 将 告诉 你 原因 ， 跟 可 维护 性 密切 相关 。 ) 


充分 理解 这 个 问题 对 读 懂 本 书后 面 的 内 容 至 关 重 要 ， 所 以 我 们 再 来 看 几 个 例子 。 以 
下 代码 都 来 自 npm 上 的 模块 包 


const getServerStuff = callback => ajaxCall(json => callback(jso 


n)); 
1/ 这 才 像 样 


const getServerStuff = ajaxCall; 


世界 上 到 处 都 充斥 着 这 样 的 垃圾 ajax 代码 。 以 下 是 上 述 两 种 写法 等 价 的 原因 : 


和光 
// 过 f |] 


ajaxCcall(json => callback(json)); 


VN eA 
ajaxCall(callback ); 
// 那么 ， 重 构 下 getServerStuff 


const getServerStuff = callback => ajaxCall(callback); 


/ / 合 上 7 
J | 


XH 
< 
es 


const getServerStuff = ajaxCall // <-- 看 ， 


各 位 ， 以 上 才 是 写 函 数 的 正确 方式 。 一 会 儿 再 告诉 你 为 何 我 对 此 如 此 执着 。 


const BlogController = { 
index(posts) { return Views.index(posts); }, 
show(post) { return Views.show(post); }, 
create(attrs) { return Db.create(attrs); }, 
update(post, attrs) { return Db.update(post, attrs); }, 
destroy(post) { return Db.destroy(post); }, 


je 


文 个 可 笑 的 控制 器 (controller) 99% 的 代码 都 是 垃圾 。 我 们 可 以 把 它 重 写成 这 样 : 


const BlogController = { 
index: Views.index, 
show: Views.show, 
create: Db.create, 
update: Db.update, 
destroy: Db.destroy, 


ys 


.… 或 者 直接 全 部 删 掉 ， 因 为 它 的 作用 仅仅 就 是 把 视图 (Views) 和 数据 库 (Db) 打 
包 在 一 起 而 已 。 


为 何 钟 爱 一 等 公民 ? 


好 了 ， 现 在 我 们 来 看 看 钟爱 一 等 公民 的 原因 是 什么 。 前 面 getServerStuff 和 
BlogController 两 个 例子 你 也 都 看 到 了 ， 虽 说 添加 一 些 没有 实际 用 处 的 间接 层 
实现 起 来 很 容易 ， 但 这 样 做 除了 徒 增 代码 量 ， 提 高 维护 和 检索 代码 的 成 本 外 ， 没 有 
任何 用 处 。 


另外 ， 如 果 一 个 函数 被 不 必要 地 包 训 起 来 了 ， 而 且 发 生 了 改动 ， 那 么 包 训 它 的 那个 
函数 也 要 做 相应 的 变更 。 


httpGet('/post/2', json => renderPost(json)); 


如 果 httpGet 要 改 成 可 以 抛 出 一 个 可 能 出 现 的 err 异常 ， 那 我 们 还 要 回 过 藉 
去 把 “ 胶 术 ”函数 也 改 了 。 


el a re 四 会 水 
用 里 的 所 有 httpGet 幸 用 者 改 成 这 竺 ， 可 以 传递 err 参 效 


/HE 
httpGet('/post/2', (json, err) => renderPost(json, err)); 


写成 一 等 公民 函数 的 形式 ， 要 做 的 改动 将 会 少 得 多 : 


大 


httpGet('/post/2'，renderPost); // renderPost 将 会 在 httpGet 中 调 


用 ， 想 要 多 少 和 参数 都 行 


除了 删除 不 必要 的 函数 ， 正 确 地 为 参数 命名 也 必 不 可 少 。 当 然 命名 不 是 什么 大 问 
题 ， 但 还 是 有 可 能 存在 一 些 不 当 的 命名 ， 尤 其 随 着 代码 量 的 增长 以 及 需求 的 变更 ， 
这 种 可 能 性 也 会 增加 。 


项 目 中 常见 的 一 种 造成 混淆 的 原因 是 ， 针 对 同一 个 概念 使 用 不 同 的 命名 。 还 有 通用 
代码 的 问题 。 比 如 ， 下 面 这 两 个 函数 做 的 事情 一 模 一 样 ， 但 后 一 个 就 显得 更 加 通 
用 ， 可 重用 性 也 更 高 : 


// 只 针对 当前 的 博 


const ValidArticles = articles => 


articles.filter(article => article !== Null && article !== und 
efined), 
// 对 未 来 的 项 目 更 友好 
const compact = xs => xs.filter(x => x !== null && x !== undefin 
ed) 


人 容易 把 自己 限定 在 特定 的 数据 上 (本 例 中 是 
articles ) 。 这 种 现象 很 常见 ， 也 是 重复 造 轮 予 的 一 大 原因 。 


有 一 点 我 必须 得 指出 ， 你 一 定 要 非常 小 心 this 值 ， 别 让 它 反 咬 你 一 口 ， 这 一 点 
与 面向 对 象 代码 类 似 。 如 果 一 个 底层 函数 使 用 了 this ， 而 且 是 以 一 等 公民 的 方 
式 被 调用 的 ， 那 你 就 等 着 JS 这 个 营 脚 的 抽象 概念 发 怒 吧 。 


valefse= Tequnrel( fs 


/ha 
fs.readFile('freaky_friday.txt', Db.save); 


WN 好 点 点 
fs.readFile('freaky_friday.txt', Db.save.bind(Db)); 


把 Db 绑 定 (bind) 到 它 自己 身上 以 后 ， 你 就 可 以 随心 所 和 谷地 调用 它 的 原型 链 式 垃 
圾 代码 了 。 this ee ， 我 尽 可 能 地 避免 使 用 它 ， 因 为 在 函数 式 编程 
中 根本 用 不 到 它 。 然 而 ， 在 使 用 其 他 的 类 库 时 ， 你 却 不 得 不 向 这 个 疯狂 的 世界 低 
头 O 


也 有 人 反驳 说 this EN o 果 你 是 这 种 对 速度 吹 毛 求 竟 的 人 ， 那 你 
还 是 合 上 这 本 书 吧 。 要 是 没 法 退货 退 款 ， 也 许 你 可 以 去 换 一 本 更 入 门 的 书 来 读 。 


侵 


至 此 ， 我 们 才 准 备 好 继续 后 面 的 章节 。 


第 3 章 : 纯 函 数 的 好 处 


第 3 章 : 纯 函数 的 好 处 


再 次 强调 " 纯 ” 


首先 ， 我 们 要 厘清 纯 函 数 的 概念 。 


纯 函 数 是 这 样 一 种 函数 ， 即 相同 的 输入 ， 永 远 会 得 到 相同 的 输出 ， 而 且 没 有 任 
何 可 观察 的 副作用 。 


比如 slice 和 splice ， 这 两 个 函数 的 作用 并 无 二 致 一 一 但 是 注意 ， 它 们 各 自 
的 方式 却 大 不 同 ， 但 不 管 怎么 说 作用 还 是 一 样 的。 我们 说 slice 符合 纯 函 数 的 定 
义 是 因为 对 相同 的 输入 它 保 证 能 返回 相同 的 输出 。 而 splice 却 会 嚼 烂 调用 它 的 
那个 数组 ， 然 后 再 吐出 来 ; 这 就 会 产生 可 观察 到 的 副作用 ， 即 这 个 数组 永久 地 改变 
字 久 


Va XS = [2 3 4450 


// 纯 的 
xs.slice(0,3); 
J >| 


xs.slice(0,3); 
J => 2 


xs.slice(0,3); 
/YE | il; 2 


// 不 纯 的 
xs.splice(0,3); 
/7 = > 2 


xs.splice(0,3); 
> sd 


xs.splice(0,3); 
全 前 


在 函数 式 编程 中 ， 我 们 讨厌 这 种 会 改变 数据 的 笨 函 数 。 我 们 追求 的 是 那 种 可 靠 的 ， 
每 次 都 能 返回 同样 结果 的 函数 ， 而 不 是 像 splice 这 样 每 次 调用 后 都 把 数据 弄 得 
一 团 糟 的 函数 ， 这 不 是 我 们 想 要 的 。 


来 看 看 另 一 个 例子 。 


// 不 纯 的 
Var minimum = 21; 


var checkAge = function(age) { 
return age >= minimum; 


je 


// 纯 的 

var checkAge = function(age) { 
Var minimum = 21; 
return age >= minimum; 


下 


在 不 纯 的 版 本 中 ， checkAge 的 结果 将 取决 于 minimum 这 个 可 变 变 量 的 值 。 换 
名 话说 ， 它 取决 于 系统 状态 (system state) ; 这 一 点 令 人 浊 南 ， 因 为 它 引 入 了 外 
部 的 环境 ， 从 而 增加 了 认 知 负荷 (cognitive load) 。 


这 个 例子 可 能 还 不 是 那么 明显 ， 但 这 种 依赖 状态 是 影响 系统 复杂 度 的 罪魁 祸首 

(http://www.curtclifton.net/storage/papers/MoseleyMarks06a.pdf ) 。 输 入 值 之 外 
的 因素 能 够 左右 checkAge 的 返回 值 ， 不 仅 让 它 变 得 不 纯 ， 而 且 导 致 每 次 我 们 思 
考 整 个 软件 的 时 候 都 痛苦 不 堪 。 


另 一 方面 ， 使 用 纯 函 数 的 形式 ， 函 数 就 能 做 到 自给 自足 。 我 们 也 可 以 让 minimum 
成 为 一 个 不 可 变 (immutable) 对 象 ， 这 样 就 能 保留 纯粹 性 ， 因 为 状态 不 会 有 变 
化 。 要 实现 这 个 效果 ， 人 必须 得 创建 一 个 对 象 ， 然 后 调用 Object.,freeze 方法 : 


var ImmutableState = Object.freeze({ 
minimum: 21 


}); 


副作用 可 能 包括 ... 


让 我 们 来 仔细 研究 一 下 “副作用 ”以便 加 深 理解 。 那 么 ， 我 们 在 纯 函 数 定义 中 提 到 的 
万 分 莉 恶 的 副作用 到 底 是 什么 ?“ 作 用 "我 们 可 以 理解 为 一 切除 结果 计算 之 外 发 生 的 
事情 。 


“作用 ”本 身 并 没什么 坏处 ， 而 且 在 本 书后 面 的 章节 你 随处 可 见 它 的 身影 。“ 副 作用 ”的 
关键 部 分 在 于 “ 副 ”。 就 像 一 潼 死水 中 的 “水 ”本 身 并 不 是 幼虫 的 培养 器 ，“ 死 " 才 是 生成 
忠 群 的 原因 。 同 理 ， 副 作用 中 的 “ 副 ” 是 滋生 bug 的 温床 。 


副作用 是 在 计算 结果 的 过 程 中 ， 系 统 状态 的 一 种 变化 ， 或 者 与 外 部 世界 进行 的 
可 观察 的 交互 。 


副作用 可 能 包含 ， 但 不 限于 : 


e@ 更 改 文件 系统 

e@ 往 数 据 库 插入 记录 
。 发 送 一 个 http 请 求 
。 打印 /log 

。 获取 用 户 输 入 

e DOM 查询 

e@ 访问 系统 状态 


这 个 列表 还 可 以 继续 写 下 去 。 概 括 来 讲 ， 只 要 是 跟 济 数 外 部 环境 发 生 的 交互 就 都 是 
副作用 一 这 一 点 可 能 会 让 你 怀疑 无 副作用 编程 的 可 行 性。 函数 式 编程 的 哲学 就 是 
假定 副作用 是 造成 不 正当 行为 的 主要 原因 。 

这 并 不 是 说 ， 要 禁止 使 用 一 切 副作用 ， 而 是 说 ， 要 让 它们 在 可 控 的 范围 内 发 生 。 后 
面 讲 到 functor 和 monad 的 时 候 我 们 会 学 习 如 何 控制 它们 ， 目 前 还 是 尽量 远离 这 些 
阴险 的 函数 为 好 。 

副作用 让 一 个 函数 变 得 不 纯 是 有 道理 的 : 从 定义 上 来 说 ， 纯 函数 必须 要 能 够 根据 相 
同 的 输入 返回 相同 的 输出 ; 如 果 有 函数 需要 跟 外 部 事物 打交道 ， 那 么 就 无 法 保证 这 一 
点 了 。 

我 们 来 仔细 了 解 下 为 何 要 坚持 这 种 「 相 同 输入 得 到 相同 输出 」 原则 。 注 意 ， 我 们 要 
复习 一 些 入 年 级 数学 知识 了 。 


入 年 级 数学 


根据 mathisfun.com : 


函数 是 不 同 数值 之 问 的 特殊 关系 : 每 一 个 输入 值 返 回 且 只 返回 一 个 输出 值 。 


第 3 章 : 纯 函 数 的 好 处 


换 龟 话说， 函数 只 是 两 种 数值 之 间 的 关系 : 输入 和 输出 。 尽 管 每 个 输入 都 只 会 有 一 
个 输出 ， 但 不 同 的 输入 却 可 以 有 相同 的 输出 。 下 图 展示 了 一 个 合法 的 从 x 到 y 
的 函数 关系 ; 


和 XX y 





(http://www.mathsisfun.com/sets/function.html) 


相反 ， 下 面 这 张 图 表 展 示 的 就 不 是 一 种 函数 关系 ， 因 为 输入 值 5 指向 了 多 个 输 
出 : 


入 Yy 





(http://www.mathsisfun.com/sets/function.html) 


函数 可 以 描述 为 一 个 集合 ， 这 个 集合 里 的 内 容 是 (输入 , 输出 ) 对 : [(1,2)， 
(3,6)，(5,10)] (看 起 来 这 个 函数 是 把 输入 值 加倍 ) 。 


或 者 一 张 表 : 
输入 输出 
1 2 
2 4 
3 


甚至 一 个 以 x 为 输入 y 为 输出 的 函数 曲线 图 : 


22 














1 )8 -06 04 -02 0 02 04 06 08 1 12 14 


如 果 输 入 直接 指明 了 输出 ， 那 么 就 没有 必要 再 实现 具体 的 细节 了 。 因 为 函数 仅仅 只 
是 输入 到 输出 的 映射 而 已 ， 所 以 简单 地 写 一 个 对 象 就 能 “运行 " 它 ， 使 用 [] 代替 
Qu Pe 


Var toLowerCase 二 {"A" o a "BpB" 0 us W@W 0 MG WD 0 dj "EeE" 9 TI 
e", WA BY GI 


toLowerCase["C"]; 
/NE SC 


Var MSsPrime = = tL halse 2 true> 3 true 04: 有 alsERES5EnUe GO 站 
alse}; 


isPprime[3]; 
//=> true 


当然 了 ， 实 际 情况 中 你 可 能 需要 进行 一 些 计 算 而 不 是 手动 指定 各 项 值 ; 不 过 上 例 倒 
是 表明 了 另外 一 种 思考 函数 的 方式 。 (你 可 能 会 想 “ 要 是 函数 有 多 个 参数 呢 ?”。 的 
确 ， 这 种 情况 表明 了 以 数学 方式 思考 问题 的 一 点 点 不 便 。 暂 时 我 们 可 以 把 它们 打包 
放 到 数组 里 ， 或 者 把 arguments 对 象 看 成 是 输入 。 等 学 习 curry 的 概念 之 
后 ， 你 就 知道 如 何 直接 为 函数 在 数学 上 的 定义 建 模 了 。 ) 


戏剧 性 的 是 : 纯 函 数 就 是 数学 上 的 函数 ， 而 且 是 函数 式 编程 的 全 部 。 使 用 这 些 纯 函 
数 编 程 能 够 带 来 大 量 的 好 处 ， 让 我 们 来 看 一 下 为 何 要 不 遗 余 力 地 保留 函数 的 纯粹 性 
的 原因 。 


追求 kN 的 理 由 


可 缓存 性 (Cacheable ) 


首先 ， 纯 函数 总 能 够 根据 输入 来 做 缓存 。 实 现 缓存 的 一 种 典型 方式 是 memoize 技 
术 : 


var squareNumber = memoize(function(x){ return x*x; }); 


squareNumber (4); 
//=> 16 


squareNumber(4); // 从 缓存 中 读 取 输 入 值 为 4 的 结果 
//=> 16 


squareNumber (5); 
//=> 25 


p 


squareNumber(5); // 从 缓存 中 读 取 输 入 值 为 5 的 结果 
//=> 25 


下 面 的 代码 是 一 个 简单 的 实现 ， 尽 管 它 不 太 健 壮 。 


Var memoize = function(f) { 


{}; 


var cache 


return function() { 
var arg_str = JSON.stringify(arguments); 
cache[arg_str] = cache[arg_str] || f.apply(f, arguments); 
return cache[arg_ str]; 
}; 
}; 


值得 注意 的 一 点 是 ， 可 以 通过 延迟 执行 的 方式 把 不 纯 的 函数 转换 为 纯 函 数 : 


var pureHttpCall = memoize(function(url, params)t{ 
return function() { return $.getJSON(url, params); } 


}); 

这 里 有 趣 的 地 方 在 于 我 们 并 没有 申 正 发 送 http 请 求 只 是 返回 了 一 个 函数 ， 当 调 
用 它 的 时 候 才 会 发 请 求 。 这 个 函数 之 所 以 有 资格 成 为 纯 函 数 ， 是 因为 它 总 是 会 根据 
相同 的 输入 返回 相同 的 输出 : 给 定 了 url 和 params 之 后 ， 它 就 只 会 返回 同一 
个 发 送 http 请 求 的 函数 。 





我 们 的 memoize 函数 工作 起 来 没有 任何 问题 ， 虽 然 它 缓存 的 并 不 是 http 请 求 所 
返回 的 结果 ， 而 是 生成 的 函数 。 

现在 来 看 这 种 方式 意义 不 大 ， 不 过 很 快 我 们 就 会 学 习 一 些 技巧 来 发 气 它 的 用 处 。 重 
点 是 我 们 可 以 缓存 任意 一 个 函数 ， 不 管 它们 看 起 来 多 么 具有 破坏 性 。 


可 移植 性 自 文档 化 (Portable / Self- 

Documenting ) 

纯 函 数 是 完全 自给 自足 的 ， 它 需要 的 所 有 东西 都 能 轻易 获得 。 仔 细 思 考 思 考 这 一 
点 .这 种 自给 自足 的 好 处 是 什么 呢 ? 首先 ， 纯 函数 的 依赖 很 明确 ， 因 此 更 易于 观察 
和 理解 没有 偷偷摸摸 的 小 动作 。 





// 不 纯 的 
var signUp = function(attrs) { 


Var user = saveUser(attrs); 
welcomeUser (user ); 


了 


var saveUser = function(attrs) { 
Var user = Db.save(attrs); 


}; 

var welcomeUser = function(user) { 
Email(user, ...); 

}; 

// 纯 的 


var signUp = function(Db, Email, attrs) { 
return function() { 
Var user = saveUser(Db, attrs); 
welcomeUser (Email, user); 


jap 
J 


var saveUser = function(Db, attrs) { 
}; 
var welcomeUser = function(Email, user) { 


}; 


这 个 例子 表明 ， 纯 函数 对 于 其 依赖 必须 要 诚实 ， 这 样 我 们 就 能 知道 它 的 目的 。 仅 从 
纯 函 数 版 本 的 signUp 的 签名 就 可 以 看 出 ， 它 将 要 用 到 Db 、 Email 和 
attrs ， 这 在 最 小 程度 上 给 了 我 们 足够 多 的 信息 。 


后 面 我 们 会 学 习 如 何不 通过 这 种 仅仅 是 延迟 执 和 ve 不 过 
里 的 重点 应 该 很 清楚 ， 那 就 是 相 比 不 纯 的 函数 ， 纯 函数 能 够 提供 ee 
者 天 知道 它们 上 暗地里 都 干 了 些 什 么 


其 次 ， 通 过 强迫 “注入 "依赖 ， 或 者 把 它们 当 作 参数 传递 ， 我 们 的 应 用 也 更 加 灵活 ; 

因为 数据 库 或 者 邮件 客户 端 等 等 都 参数 化 了 ( 别 担 心 ， 我 们 有 办 法 让 这 种 方式 不 那 
么 单调 乏味 ) 。 如 果 要 使 用 另 一 个 Db ， 只 需 把 它 传 给 函数 就 行 了 。 如 果 想 在 一 

个 新 应 用 中 使 用 这 个 可 靠 的 函数 ， 尽 管 把 新 的 Db 和 Email 传递 过 去 就 好 了 ， 
非常 简单 。 


在 JavaScript 的 设 定 中 ， 可 移植 性 可 以 意味 着 把 函数 序列 化 (serializing) 并 通过 
Socket 发 送 。 也 可 以 意味 着 代码 能 够 在 Web workers 中 运行 。 总 之 ， 可 移植 性 是 一 
个 非常 强大 的 特性 。 


令 式 编程 中 “典型 "的 方法 和 过 程 都 深 深 地 根植 于 它们 所 在 的 环境 中 ， 通 过 状态 、 
0 (available effects) 达成 ; 纯 函 数 与 此 相反 ， 它 与 环境 无 关 ， 只 要 
我 们 愿意 ， 可 以 在 任何 地 方 运 行 它 。 


你 上 一 次 把 某 个 类 方法 拷贝 到 新 的 应 用 中 是 什么 时 候 ? 我 最 喜欢 的 名 言 之 一 是 
Erlang 语言 的 作者 Joe Armstrong 说 的 这 和 句 话 : “面向 对 象 语言 的 问题 是 ， 它 们 永 
远 都 要 随身 携带 那些 隐 式 的 环境 。 你 只 需要 一 个 香蕉 ， 但 却 得 到 一 个 拿 着 香蕉 的 大 
猩猩 ... 以 及 整个 从 林 ”。 


可 测试 性 (Testable ) 


第 三 点 ， 纯 函数 让 测试 更 加 容易 。 我 们 不 需要 伪造 一 个 “ 丰 实 的 "支付 网 关 ， 
一 次 测试 之 前 都 要 配置 、 之 后 都 要 断言 状态 (assert the state) 。 只 需 简 单 地 给 
数 一 个 输入 ， 然 后 断言 输出 就 好 了 。 


事实 上 ， 我 们 发 现 函 数 式 编程 的 社区 正在 开创 一 些 新 的 测试 工具 ， 能 够 帮助 我 们 自 
动 生 成 输入 并 断言 输出 。 这 超出 了 本 书 范围 ， 但 是 我 强烈 推荐 你 去 试 斌 
Quickcheck 一 一 一 个 为 函数 式 环 境 量 身 定 制 的 测试 工具 。 


合理 性 (Reasonable ) 


很 多 人 相信 使 用 纯 用 透明 性 (referential transparency) 。 如 
果 一 段 代码 可 以 替换 成 它 执 行 所 得 的 结果 ， 而 且 是 在 不 改变 整个 程序 行为 的 前 提 下 
替换 的 ， 那 么 我 们 就 说 这 用 透明 的 。 


由 于 纯 函 数 总 是 能 够 根据 相同 的 输入 返回 相同 的 输出 ， 所 以 它们 就 能 够 保证 总 是 返 
回 同一 个 结果 ， 这 也 就 保证 了 引用 透明 性 。 我 们 来 看 一 个 例子 。 


var Immutable = require('immutable'); 


var decrementHP = function(player) { 
return player.set("hp", player.hp-1); 
}; 


var isSameTeam = function(player1, player2) { 
return playeri1.team === player2.team; 


下 


var punch = function(player, target) { 
if(isSameTeam(player, target)) { 
return target,; 
} else { 
return decrementHP(target); 


var jobe = Immutable.Map({name:"Jobe", hp:20, team: "red"}); 
var michael = Immutable.Map({name:"Michael", hp:20, team: "green" 


}); 


punch(jobe, michael); 
//=> Immutable.Map({name:"Michael", hp:19, team: "green"}) 


图 = :| 

decrementHP 、 isSameTeam 和 punch 都 是 纯 函 数 ， 所 以 是 引用 透明 的 。 我 
们 可 以 使 用 一 种 叫做 “等 式 推导 ” (equational reasoning) 的 技术 来 分 析 代 码 。 所 
谓 “ 等 式 推导 ?就 是 “一 对 一 "替换 ， 有 点 像 在 不 考虑 程序 性 执行 的 怪异 行为 《quirks of 
programmatic evaluation ) 的 情况 下 ， 手 动 执行 相关 代码 。 我 们 借助 引用 透明 性 来 
剖析 一 下 这 段 代 码 。 


首先 内 联 isSameTeam 有 函数 : 


var punch = function(player, target) { 


if(player.team === target.team) { 
return target,; 

} else ({ 
return decrementHP(target); 

} 


J 
因为 是 不 可 变数 据 ， 我 们 可 以 直接 把 team 替换 为 实际 值 : 


var punch = function(player, target) { 
if("red" === "green") { 
return target,; 
} else { 
return decrementHP(target); 


} 
jr 


if 语句 执行 结果 为 false ， 所 以 可 以 把 整个 if 语句 都 删 掉 : 


var punch = function(player, target) { 
return decrementHP(target); 


je 


如 果 再 内 联 decrementHP ， 我 们 会 发 现 这 种 情况 下 ， punch 变 成 了 一 个 让 
hp 的 值 减 1 的 调用 : 


var punch = function(player, target) { 
return target.set("hp", target.hp-1); 


了 
总 之 ， 等 式 推导 带 来 的 分 析 代 码 的 能 力 对 重 构 和 理解 代码 非常 重要 。 事 实 上 ， 我 们 
重 构 海 鸥 程序 使 用 的 正 是 这 项 技术 : 利用 加 和 乘 的 特性 。 对 这 些 技术 的 使 用 将 会 贯 
穿 本 书 ， 申 的 。 


并 行 代码 


最 后 一 点 ， 也 是 决定 性 的 一 点 : 我 们 可 以 并 行 运行 任 意 纯 函数 。 因 为 纯 函 数 根 本 不 
需要 访问 共享 的 内 存 ， 而 且 根据 其 定义 ， 纯 函数 也 不 会 因 副 作用 而 进入 竞争 态 
(race condition ) 。 


并 行 代码 在 服务 端 js 环境 以 及 使 用 了 web worker 的 浏览 器 那里 是 非常 容易 实现 
的 ， 因 为 它们 使 用 了 线程 (thread) 。 不 过 出 于 对 非 纯 函 数 复 杂 度 的 考虑 ， 当 前 主 


流 观 点 还 是 避免 使 用 这 种 并 行 。 


多 结 


Ek 


八 


我 们 已 经 了 解 什么 是 纯 函 数 了 ， 也 看 到 作为 函数 式 程序 员 的 我 们 ， 为 何 深信 纯 函 数 
是 不 同 凡响 的 。 从 这 开始 ， 我 们 将 尽力 以 纯 函 数 式 的 方式 书写 所 有 的 函数 。 为 此 我 
们 将 需要 一 些 额 外 的 工具 来 达成 目标 ， 同 时 也 尽量 把 非 纯 函数 从 纯 有 函数 代码 中 分 

离 o 

如 果 手 头 没 有 一 些 工 具 ， 那 么 纯 函 数 程序 写 起 来 就 有 点 费力 。 我 们 不 得 不 玩 杂 要 似 
的 通过 到 处 传递 参数 来 操作 数据 ， 而 且 还 被 禁止 使 用 状态 ， 更 别 说 “作用 "了 。 没 有 
人 愿意 这 样 自虐 。 所 以 让 我 们 来 学 习 一 个 叫 curry 的 新 工具 。 


4 章 : 柯 里 化 (curry) 


4 章 : 柯 里 化 (curry ) 


不 可 或 缺 的 curry 


( 译 者 注 : 原 标 题 是 “Can't live if livin' is without you”， 为 英国 乐队 Badfinger 歌曲 
Without You 中 歌词 。) 


我 父亲 以 前 跟 我 说 过 ， 有 些 事物 在 你 得 到 se ， 得 到 之 后 就 不 可 或 缺 


了 。 微 波 炉 是 这 样 ， 智 能 手机 是 这 样 ， 互 联网 也 是 这 
时 候 过 得 也 很 充实 。 对 我 来 说 ， 函 数 的 柯 里 化 oy 也 是 这 样 。 





curry 的 概念 很 简单 : 只 传递 给 函数 一 部 分 参数 来 调用 它 ， 让 它 返 回 一 个 函数 去 处 
理 剩 下 的 参数 。 


你 可 以 一 次 性 地 调用 curry 函数 ， 也 可 以 每 次 只 传 一 个 参数 分 多 次 调用 。 


var add = function(x) { 
return function(y) { 
return x + y; 


}; 
了 


Var increment = add(1); 
var addTen = add(10); 


increment(2); 


IE 全 
A PD 


addTen(2); 


这 里 我 们 定义 了 一 个 add 元 数 ， 它 接受 一 个 参数 并 返回 一 个 新 的 函数 。 调 用 

add 之 后 ， 返 回 的 函数 就 通过 闭 包 的 方式 记 住 了 add 的 第 一 个 参数 。 一 次 性 地 
调用 它 实 在 是 有 点 繁 玉 ， 好 在 我 们 可 以 使 用 一 个 特殊 的 curry 帮助 函数 (helper 
function ) 使 这 类 函数 的 定义 和 调用 更 加 容易 。 


我 们 来 创建 一 些 curry 函数 享受 下 ( 译 者 注 : 此 处 原文 是 “for our enjoyment”， 语 出 


自 圣 经 ) 。 
var curry = require('lodash').curry; 


var match = curry(function(what, str) { 
return str.match(what); 


}); 


var replace = curry(function(what, replacement, str) { 
return str.replace(what, replacement); 


}); 


var filter = curry(function(f, ary) { 
return ary.filter(f); 


}); 


var map = curry(function(f, ary) { 
return ary.map(f); 


3) 


我 在 上 面 的 代码 中 遵循 的 是 一 种 简单 ， 同 时 也 非常 重要 的 模式 。 即 策略 性 地 把 要 操 
作 的 数据 (String，Array) 放 到 最 后 一 个 参数 里 。 到 使 用 它们 的 时 候 你 就 明白 这 样 
做 的 原因 是 什么 了 。 


第 4 章 : 柯 里 化 (curry) 


match(/\s+/g, "hello world"); 
EN [ 1 1 ] 


match(/\s+/g)("hello world"); 
Wh [ 1 1 ] 


Var hasSpaces = match(/\s+/9g); 
// function(x) { return x.match(/\s+/g) } 


hasSpaces("hello wor1d") ， 
/| 


hasSpaces(" Spaceless") ， 
a/ lel 


filter(hasSpaces, ["tori spelling", "tori amos"]); 
/nl tomamose 


var findSpaces = filter(hasSpaces); 
// function(xs) { return xs.filter(function(x) { return x.match( 
AS 


findSpaces(["tori spelling", "tori amos"] ) ， 
ya toramosa 


Var noVowels = replace(/[aeiou]/ig); 
// function(replacement, x) { return x.replace(/[aeiou]/ig, repl 
acement ) } 


var censored = noVowels("*"),; 
/funeeronK etn replacel(laenoulALom. 


censored("Chocolate Rain"); 
VC CON Re ny 


这 里 表明 的 是 一 种 “ 预 加 载 "函数 的 能 力 ， 通 过 传递 一 到 两 个 参数 调用 部 数 ， 就 能 得 
到 一 个 记 住 了 这 些 参数 的 新 函数 。 


我 鼓励 你 使 用 npm install lodash 安装 lodash ， 复 制 上 面 的 代码 放 到 
REPL 里 跑 一 跑 。 当 然 你 也 可 以 在 能 够 使 用 lodash 或 ramda 的 网 页 中 运行 它 
们 。 


不 仅仅 是 双关 语 咖 喔 


curry 的 用 处 非常 广泛 ， 就 像 在 hasSpaces 、 findSpaces 和 censored 看 到 
的 那样 ， 只 需 传 给 函数 一 些 参数 ， 就 能 得 到 一 个 新 函数 。 


用 map 简单 地 把 参数 是 单个 元 素 的 函数 包 衰 一 下 ,就 能 把 它 转 换 成 参数 为 数组 的 


var getChildren = function(x) { 
return x.childNodes; 


je 


var allTheCchildren = map(getCchildren); 


只 传 给 函数 一 部 分 参数 通常 也 叫做 局 部 调用 (partial application) ， 能 够 大 量 减 少 
样板 文件 代码 (boilerplate code ) 。 考 虑 上 面 的 allTheChildren 欧 数 ， 如 果 用 
lodash 的 普通 map 来 写 会 是 什么 样 的 (注意 参数 的 顺序 也 变 了 ) 


var allTheChildren = function(elements) { 
return _.map(elements, getChildren); 


了 


通常 我 们 不 定义 直接 操作 数组 的 函数 ， 因 为 只 需 内 联 调用 map(getchildren) 就 
能 达到 目的 。 这 一 点 同样 适用 于 sort 、 filter 数 (higher 
order function) (高 阶 函 数 : 参数 或 返回 值 为 函数 的 函数 ) 。 


当 我 们 谈论 纯 函 数 的 时 候 ， 我 们 说 它们 接受 一 个 输入 返回 一 个 输出 。curry a 
做 的 正 是 这 样 : 每 传递 一 个 参数 调用 函数 ， 就 返回 一 个 新 函数 处 理 剩 余 的 参数 。 
就 是 一 个 输入 对 应 一 个 输出 啊 。 


哪怕 输出 是 另 一 个 函数 ， 它 也 是 纯 函 数 。 当 然 curry 函数 也 允许 一 次 传递 多 个 参 
数 ， 但 这 只 是 出 于 减少 () 的 方便 。 


各 千 


名 


1 


curry 函数 用 起 来 非常 得 心 应 手 ， 每 天 使 用 它 对 我 来 说 简直 就 是 一 种 享受 。 它 堪 称 
手头 必 备 工具 ， 能 够 让 函数 式 编程 不 那么 繁琐 和 沉 问 。 


过 简单 地 传递 几 个 参数 ， 就 能 动态 创建 实用 的 新 函数 ; 而 且 还 能 带 来 一 个 额外 好 
处 ， 那 就 是 保留 了 数学 的 函数 定义 ， 尽 管 参数 不 止 一 个 。 下 一 章 我 们 将 学 习 另 一 个 
重要 的 工具 : 组 合 (compose) 。 


第 5 章 : 代码 组 合 (compose ) 


练习 


开始 练习 之 前 先 说 明 一 下 ， 我 们 将 默认 使 用 ramda 这 个 库 来 把 函 3 curry 艺 
数 。 或 者 你 也 可 以 选择 由 lodash 的 作者 编写 和 维护 的 lodash-fp。 这 两 个 库 都 很 好 
用 ， 选 择 哪 一 个 就 看 你 自己 的 喜好 了 。 


你 还 可 以 对 自己 的 练习 代码 做 单元 测试 ， 或 者 把 代码 拷贝 到 一 个 REPL 里 运行 看 
看 。 
这 些 练习 的 答案 可 以 在 木 书 仓库 中 找到 。 


var _ = require('ramda'); 
// 练习 1 
Dy 


// 通过 局 部 调用 (partial apply) 移 除 所 有 参数 


var words = function(str) { 
neturm split( St 和 二 


}; 

// 练习 1a 

VE 三 三 三 三 三 三 三 三 三 三 三 三 三 

// 使 用 `map ”创建 一 个 新 的 “words、” 函数 ， 使 之 能 够 操作 字符 串 数 组 


var Sentences = undefined; 


第 4 章 : 柯 里 化 (curry ) 


// 通过 局 部 调用 (partial apply) 移 除 所 有 参数 


Var filterQs = function(xs) { 
return filter(function(x){ return match(/q/i, x); }, xs); 


je 


// 使 用 帮助 函数 `_keepHighest” 重 构 “max” 使 之 成 为 CUrry 函数 


/ENA 
var _keepHighest = function(x,y){ return x >=y?x : y; }; 


// 重 构 这 段 代码 : 
var max = function(xs) { 
return reduce(function(acc, x)t{ 
return _keepHighest(acc, x); 
Eminity XSD) 


}; 
全 
py A 


// 包 庄 数组 的 “slice ”函数 使 之 成 为 curry 函数 
二 人 2 EsceelOR 2 
var slice = Undefined ， 


WA 

// 借助 “slice” 定 义 一 个 `take”curry 函数 ， 该 函数 调用 后 可 以 取出 字符 串 的 
前 n 个 字符 。 

var take = undefined; 


36 
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第 5 章 : 代码 组 合 (compose ) 


这 就 是 组 合 (compose， 以 下 将 称 之 为 组 合 ) 


var compose = function(f,g) { 
return function(x) { 
return f(g(x)); 


}; 
}; 


f 和 g 都 是 函数 ，x 是 在 它们 之 间 通 过 “管道 "传输 的 值 。 


组 合 看 起 来 像 是 在 饲养 函数 。 你 就 是 饲养 员 ， 选 择 两 个 有 特点 又 遭 你 喜欢 的 函 
数 ， 让 它们 结合 ， 产 下 一 个 轿 新 的 函数 。 组 合 的 用 法 如 下 : 


var toUpperCase = function(x) { return x.toUpperCase(); }; 
Var exclaim = function(x) { return x + '!'; }; 
var Shout = compose(exclaim, toUpperCase); 


shout("send in the clowns"); 
//=> "SEND IN THE CLOWNS!" 


两 个 函数 组 合 之 后 返回 了 一 个 新 函数 是 完全 讲 得 通 的 : 组 合 某 种 类 型 (本 例 中 是 函 
数 ) 的 两 个 元 素 本 就 该 生成 一 个 该 类 型 的 新 元 素 。 把 两 个 乐高 积木 组 合 起 来 绝 不 可 
能 得 到 一 个 林肯 积木 。 所 以 这 是 有 道理 的 ， 我 们 将 在 适当 的 时 候 探讨 这 方面 的 一 些 
底层 理论 。 


在 compose 的 定义 中 ，g 将 先 于 f 执行 ， 因 此 就 创建 了 一 个 从 右 到 左 的 数据 
流 。 这 样 做 的 可 读 性 远 远 高 于 藤 套 一 大 堆 的 函数 调用 ， 如 果 不 用 组 合 ， shout 函 
数 将 会 是 这 样 的 : 


var shout = function(x){ 
return exclaim(toUpperCase(x)); 


ep 


让 代码 从 右 向 左 运行 ， 而 不 是 由 内 而 外 运行 ， 我 觉得 可 以 称 之 为 “左倾 ”( 呈 
一 一 ) 。 我 们 来 看 一 个 顺序 很 重要 的 例子 


var head = function(x) { return x[0]; }; 
var reverse = reduce(function(acc, x){ return [x]j.concat(acc); } 


， []); 


var last = compose(head, reverse); 


last(['jumpkick', 'roundhouse', "uppercut ' ] ) ， 
//=> Uppercut 


reverse 反 转 列表 ， head 取 列 表 中 的 第 一 个 元 素 ; 所 以 结果 就 是 得 到 了 一 个 
last 函数 ( 译 者 注 : 即 取 列表 的 最 后 一 个 元 素 ) ， 虽 然 它 性 能 不 高 。 这 个 组 合 
中 元 数 的 执行 顺序 应 该 是 显而易见 的 。 尽 管 我 们 可 以 定义 一 个 从 左 向 右 的 版 本 ， 但 
是 从 右 向 左 执行 更 加 能 够 反映 数学 上 的 含义 一 一 是 的 ， 组 合 的 概念 直接 来 自 于 数学 
课本 。 实 际 上 ， 现 在 是 时 候 去 看 看 所 有 的 组 合 都 有 的 一 个 特性 了 。 


// 结合 律 (associativity) 
Var associative = compose(f, compose(g, h)) == compose(compose(f 


， 9), h); 
// true 


这 个 特性 就 是 结合 律 ， 符 合 结合 律 意味 着 不 管 你 是 把 g 和 h 分 到 一 组 ， 还 是 把 
f 和 g 分 到 一 组 都 不 重要 。 所 以 ， 如 果 我 们 想 把 字符 串 变 为 大 写 ， 可 以 这 么 
写 : . 


compose(toUpperCase, compose(head, reverse)); 


// 或 者 
compose(compose(toUpperCase, head), reverse); 


因为 如 何 为 compose 的 调用 分 组 不 重要 ， 所 以 结果 都 是 一 样 的 。 这 也 让 我 们 有 能 
力 写 一 个 可 变 的 组 合 〈variadic compose) ， 用 法 如 下 : 


// 前 面 的 例子 中 我 们 必须 要 写 两 个 组 合 才 行 ， 但 既然 组 合 是 符合 结合 律 的 ， 我 们 就 可 


以 只 写 一 个 ， 


// 而 且 想 传 给 它 多 少 个 函数 就 传 给 它 多 少 个 ， 然 后 让 它 自己 决定 如 何 分 组 。 
var lastUpper = compose(toUpperCase, head, reverse); 


lastUpper(['jumpkick', 'roundhouse', 'uppercut"']); 
//=> "UPPERCUT' 


var loudLastUpper = compose(exclaim, toUpperCase, head, reverse) 


loudLastUpper(['jumpkick', 'roundhouse', 'uppercut"']); 
//=> 'UPPERCUT!' 


运用 结合 律 能 为 我 们 带 来 强大 的 灵活 性 ， 还 有 对 执行 结果 不 会 出 现 意外 的 那 种 平和 
心态 。 至 于 稍微 复杂 些 的 可 变 组 合 ， 也 都 包含 在 本 书 的 _ support 库 里 了 ， 而 且 你 
也 可 以 在 类 似 lodash、underscore 以 及 ramda 这 样 的 类 库 中 找到 它们 的 常规 定 

义 oO 


结合 律 的 一 大 好 处 是 任何 一 个 函数 分 组 都 可 以 被 拆 开 来 ， 然 后 再 以 它们 自己 的 组 合 
方式 打包 在 一 起 。 让 我 们 来 重 构 重 构 前 面 的 例子 : 


var loudLastUpper = compose(exclaim, toUpperCase, head, reverse) 


var last = compose(head, reverse); 
var loudLastUpper = compose(exclaim, toUpperCase, last); 


> 


var last = compose(head, reverse); 
var angry = compose(exclaim, toUpperCase); 
var loudLastUpper = compose(angry, last); 


关于 如 何 组 合 ， 并 没有 标准 的 答案 一 一 我 们 只 是 以 自己 喜欢 的 方式 搭 乐高 积木 圈 
了 。 通 常 来 说 ， 最 佳 实践 是 让 组 合 可 重用 ， 就 像 last 和 angry 那样 。 如 果 熟 
入 Fowler 的 《 重 构 》 一 书 的 话 ， 你 可 能 会 认识 到 这 个 过 程 叫做 “extract 

只 不 过 不 需要 关心 对 象 的 状态 。 





method 


pointfree 


pointfree 模式 指 的 是 ， 永 远 不 必 说 出 你 的 数据 。 咳 咳 对 不 起 〈 译 者 注 : 此 处 原文 
是 “Pointfree style means never having to say your data”， 源 自 1970 年 的 电影 
Love Story 里 的 一 勿 著名 台词 Love means never having to say you're sorry”。 紧 
接着 作者 又 说 了 一 名 "Excuse me”， 大 概 是 一 种 幽默 ) 。 它 的 意思 是 说 ， 函 数 无 须 
提 及 将 要 操作 的 数据 是 什么 样 的 。 一 等 公民 的 函数 、 柯 里 化 (curry) 以 及 组 合 协作 
起 来 非常 有 助 于 实现 这 种 模式 。 

// 非 pointfree， 因 为 提 到 了 数据 : word 

var snakeCase = function (word) { 

return word.toLowerCase().replace(/\s+/ig, '_'); 


5 


/ 1 一 


// polntfree 


Var snakeCase = compose(replace(/\s+/ig, '_'), toLowerCase); 


看 到 _ replace 是 如 何 被 局 部 调用 的 了 么 ? 这 里 所 做 的 事情 就 是 通过 管道 把 数据 在 
接受 单个 参数 的 函数 间 传 递 。 利 用 curry， 我 们 能 够 做 到 让 每 个 函数 都 先 接收 数 

据 ， 然 后 操作 数据 ， 最 后 再 把 数据 传递 到 下 一 个 函数 那里 去 。 另 外 注意 在 pointfree 
版 本 中 ， 不 需要 word 参数 就 能 构造 函数 ; 而 在 非 pointfree 的 版 本 中 ， 必 须要 有 
word 才能 进行 一 切 操作 。 


我 们 再 来 有 有 一 个 例子 "8 


// 非 pointfree， 因 为 提 到 了 数据 : name 

var initials = function (name) { 
return name.split(' ').map(compose(toUpperCase, head)).join('. 
'); 

}; 


J On ee 
var initials = compose(join('. '), map(compose(toUpperCase, head 
)), split(' ')); 


initials("hunter Stockton thompson"),; 
AS 


另外 ，pointfree 模式 能 够 帮助 我 们 减少 不 必要 的 命名 ， 让 代码 保持 简洁 和 通用 。 对 

ee 

是 接受 输入 返回 输出 的 小 函数 。 比 如 ，while 循环 是 不 能 组 合 的 。 不 过 你 也 要 警 

惕 ，pointfree LA 有 时 候 也 能 混淆 视听 。 并 非 所 有 的 函数 式 代 码 都 

是 ee 的 ， 不 过 这 没关系 。 可 以 使 用 它 的 时 候 就 使 用 ， 不 能 使 用 的 时 候 就 用 
通 函 数 。 


debug 


六 


组 合 的 一 个 常见 错误 是 ， 在 没有 局 部 调用 之 前 ， 就 组 合 类 似 map 这 样 接受 两 个 
数 的 函数 。 


// 错误 做 法 : 我 们 传 给 了 “angry” 一 个 数组 ， 根 本 不 知道 最 后 传 给 “map ”的 是 什 
么 东西 。 
var latin = compose(map, angry, reverse); 


yatam( fro eyesu le 
// error 


// 正确 做 法 : 每 个 函数 都 接受 一 个 实际 参数 。 
var latin = compose(map(angry), reverse); 


latin(["frog", "eyes"]); 
EMESI ee EROGI 前 


如 果 在 debug 组 合 的 时 候 遇 到 了 困难 ， 那 么 可 以 使 用 下 面 这 个 实用 的 ， 但 是 不 纯 的 
trace 函数 来 追踪 代码 的 执行 情况 。 


var trace = curry(function(tag, x){ 
console.log(tag, x); 
return x; 


}); 


Var dasherize = compose(join('-'), toLower, split(' '), replacel 
/\s{2,}/ig, ' ')); 


dasherize('The world is a vampire'); 
// TypeError: Cannot read property 'apply' of undefined 


这 里 报错 了 了， 来 trace 下 : 


var dasherize = compose(join('-'), toLower, trace("after split") 
; Split(' '), replace(/\s{2,}/ig, ' ')); 
/afbterespt nhner wormloee Ss a Vamp en 


啊 | toLower 的 参数 是 一 个 数组 ， 所 以 需要 先 用 map 调用 一 下 它 。 


var dasherize = compose(join('-'), map(toLower), split(' '), rep 
aeel 介 入 ss 2 


dasherize('The world is a vampire ' ) ， 


// 'the-world-is-a-vampire' 


trace 咏 数 允许 我 们 在 某 个 特定 的 点 观察 数据 以 便 debug。 像 haskell 和 
purescript 之 类 的 语言 出 于 开发 的 方便 ， 也 都 提供 了 类 似 的 函数 。 


组 合 将 成 为 我 们 构造 程序 的 工具 ， 而 且 幸 运 的 是 ， 它 背后 是 有 一 个 强大 的 理论 做 支 
撑 的 。 让 我 们 来 研究 研究 这 个 理论 。 


大 B24 
沁 畴 学 
范畴 学 (category theory) 是 数学 中 的 一 个 抽象 分 支 ， 能 够 形式 化 诸如 集合 论 (set 


theory) 、 类 型 论 (type theory) 、 群 论 (group theo ae 以 及 逻辑 学 〈logic) 等 数 
学 分 支 中 的 一 些 概念 。 es oe 、 态 射 (morphism) 和 变化 
式 (transformation ) ， 而 这 些 概 念 跟 编 程 的 联系 非常 紧密 。 下 图 是 一 些 相同 的 概念 
de : 


Types Logic Sets Homotopy 

A proposition set space 

a:A proof element point 

B(x) predicate family of sets fibration 

p(X) B(x) conditional proof family of elements section 

0,1 i 2, {©O} OD, * 

A+B AVB disjoint union coproduct 
AxB AAB set of pairs product space 
A—B 4 一 了 B set of functions function space 
D(x:4) B(x) saBl(x) disjoint sum total space 
[I(x:a) B(x) Vx:AB(X) product space of sections 


lda equality = {(x,x)|xEA} pathspace A! 


抱歉 ， 我 没有 任何 要 吓 绑 你 的 意思 。 我 并 不 假设 你 对 这 些 概 念 都 了 如 指 掌 ， 我 只 是 
想 让 你 明白 这 里 面 有 多 少 重复 的 内 容 ， 让 你 知道 为 何 范畴 学 要 统一 这 些 概念 。 


在 范畴 学 中 ， 有 一 个 概念 叫做 ... 范 畸 。 有 着 以 下 这 些 组 件 (component) 的 搜集 
(collection) 就 构成 了 一 个 范畴 : 


e@ 对 象 的 搜集 

。 态 射 的 搜集 

e 态 射 的 组 合 

e identity 这 个 独特 的 态 射 

范畴 学 抽象 到 足以 模拟 任何 事物 ， 不 过 目前 我 们 最 关心 的 还 是 类 型 和 兄 数 ， 所 以 让 
我 们 把 范畴 学 运用 到 它们 身上 看 看 。 


对 象 的 搜集 


对 象 就 是 数据 类 型 ， 例 如 String 、 Boolean 、 Number 和 0bject 等 等 。 
通常 我 们 把 数据 类 型 视 作 所 有 可 能 的 值 的 一 个 集合 (set) 。 像 Boolean 就 可 以 
看 作 是 [true，false] 的 集合 ， Number 可 以 是 所 有 实数 的 一 个 集合 。 把 类 型 
当 作 集合 对 待 是 有 好 处 的 ， 因 为 我 们 可 以 利用 集合 论 (set theory) 处 理 类 型 。 


态 射 的 搜集 
态 射 是 标准 的 、 首 通 的 纯 函 数 。 


态 射 的 组 合 





你 可 能 猜 到 了 ， 这 就 是 本 章 介 人 组 合 。 我 们 已 经 讨论 过 
compose 函数 是 符合 结合 律 的 ， 这 并 非 巧 合 ， 结 合 律 是 在 范畴 学 中 对 任何 组 合 都 
适用 的 一 个 特性 。 


这 张 图 展示 了 什么 是 组 合 










String 





compose (f, 9) 
BooLean 
O 


这 里 有 一 个 具体 的 例子 


var 9g 


function(x){ return x.length; }; 
var f = function(x){ return x === 4; }; 
Var isFourLetterWord = compose(f, 9g); 


identity 这 个 独特 的 态 射 


ed 绍 一 个 名 为 id 的 实用 浆 数 。 这 个 了 泡 数 接受 随便 什么 输入 然后 原封 不 动 
地 返回 


var id = function(x){ return x; }; 


你 可 能 会 问 “ 这 到 底 哪里 有 用 了 ?”。 别 急 ， 我 们 会 在 随后 的 章节 中 拓展 这 个 函数 
的 ， 暂 时 先 把 它 当 作 一 个 可 以 替代 给 定 值 的 函数 一 一 一 个 假装 自己 是 普通 数据 的 函 
数 。 


id 函数 跟 组 合 一 起 使 用 简直 完美 。 下 面 这 个 特性 对 所 有 的 一 元 函 


数 (unary 
function) (一 元 函数 : 只 接受 一 个 参数 的 函数 ) f 都 成 立 : 


// identity 


compose(id, f) == compose(f, id) == f; 
ZUE 
嘿 ， 这 就 是 实数 的 单位 元 (identity property) 嘛 |! 如 果 这 还 不 够 清楚 直 白 ， 别 着 


慢 理 解 它 的 无 用 性 。 很 4 a 就 会 到 处 使 用 id 了 ， 不 过 En 不 是 把 
一 个 替代 给 定 值 的 函数 。 这 对 写 pointfree 的 代码 非常 有 用 。 


WW 


好 了 ， 以 上 就 是 类 型 和 函数 的 范畴 。 不 过 如 果 你 是 第 一 次 听 说 这 些 概念 ， 我 估计 你 
还 是 有 些 迷 糊 ， 不 知道 范畴 到 底 是 什么 ， 为 什么 有 用 。 没 关系 ， 本 书 全 书 都 在 借助 

这 些 知识 编写 示例 代码 。 至 于 现在 ， 就 在 本 章 ， 本 行文 字 中 ， 你 至 少 可 以 认为 它 向 
我 们 提供 了 有 关 组 合 的 知识 一 一 比如 结合 律 和 单位 律 。 


除了 类 型 和 函数 ， 还 有 什么 范畴 呢 ? 还 有 很 多 ， 比 如 我 们 可 以 定义 一 个 有 向 图 
(directed graph) ， 以 节点 为 对 象 ， 以 边 为 态 射 ， 以 路 径 连 接 为 组 合 。 还 可 以 定义 
一 个 实数 类 型 (Number) ， 以 所 有 的 实数 为 对 象 ， 以 >= 为 态 射 (实际 上 任何 偏 
序 (partial order) 或 全 序 (total order) 都 可 以 成 为 一 个 范畴 ) 。 范 畴 的 总 数 是 无 
限 的 ， 但 是 要 达到 本 书 的 目的 ， 我 们 只 需要 关心 上 面 定 义 的 范畴 就 好 了 。 至 此 我 们 
已 经 大 致 测 览 了 一 些 表 面 的 东西 ， 必 须要 继续 后 面 的 内 容 了 。 


泛 结 


Ek 


/ 


组 合 像 一 系列 管道 那样 把 不 同 的 函数 联系 jae ， 0 以 也 必须 在 其 中 流动 
一 一 毕 竞 纯 函数 就 是 输入 对 输出 ， 所 以 打破 这 条 就 是 不 尊重 输出 ， 就 会 让 我 们 
的 应 用 一 无 是 处 。 


我 们 认为 组 合 是 高 于 其 他 所 有 原则 的 设计 原则 ， 这 是 因为 组 合 让 我 们 的 代码 简单 而 
富有 可 读 性 。 另 外 范畴 学 将 在 应 用 架构 、 模 拟 副 作用 和 保证 正确 性 方面 扮演 重要 角 
色 。 


现在 我 们 已 经 有 足够 的 知识 去 进行 一 些 实际 的 练习 了 ， 让 我 们 来 编写 一 个 示例 应 


代码 组 合 (compose) 


Ol 


heaqunreG 3/ /ASUDDOn te., 
var _ = require('ramda'); 
var accounting = require('accounting'); 


// 示例 数据 
Var CARS = [ 

{name: "Ferrari FF", horsepower: 660, dollar_ value: 700000, 
in_stock: true}, 

{name: "Spyker C12 Zagato", horsepower: 650, dollar value: 6 
48000, in_stock: false}, 

{name: "Jaguar XKR-S", horsepower: 550, dollar_value: 132000 
; in_stock: false}, 

{name: "Audi R8", horsepower: 525, dollar value: 114200, in_ 
stock: false}, 

{name: "Aston Martin One-77", horsepower: 750, dollar_value: 
1850000, in_stock: true}, 

{name: "Pagani Huayra", horsepower: 700, dollar_value: 13000 
00, in_stock: false} 


| 


ZY GF 

AH 

// 使 用 _,compose() 重 写 下 面 这 个 函数 。 提 示 : .prop() 是 curry 函数 
Var isLastInStock = function(cars) { 


Var last car = _.last(cars); 

return _.prop('in_stock', last_car); 
}; 
V2 2 
[二 三 三 三 三 三 三 三 三 三 三 三 


// 使 用 _.compose()、_.prop() 和 _.head() 获取 第 一 个 car 的 name 
var nameOfFirstCar = Undefined ， 


/VY 祭司 

= 

// 使 用 帮助 函数 _average 重 构 averageDollarValue 使 之 成 为 一 个 组 合 

var _average = function(xs) { return reduce(add, 0, xs) / xs.len 
gth; }; // <- 无 须 改动 


> 
Oo 


人 ee ( CAMNOASA ) 
VI 2 人 口 CUITIDUOGC 


var averageDollarValue = function(cars) { 

var dollar _ values = map(function(c) { return c.dollar value; } 
: Cars); 

return _average(dollar_ values ) ; 


// 练习 4: 

// ============ 

// 使 用 compose 写 一 个 sanitizeNames() 函数， 返回 一 个 下 划 线 连接 的 小 写字 
符 串 : 例如: sanitizeNames(["Hello Wor1d"]) //=> ["hello wor1d"]。 


var _underscore = replace(/W+/g，'_'); //<-- 无 须 改动 ， 并 在 sanit 
izeNames 中 使 用 它 


var sanitizeNames = undefined; 


// 使 用 compose 重 构 availablePrices 


var availablePrices = function(cars) { 
var available cars = _.filter(_.prop('in_stock'), cars); 
return available cars.map(function(x)t 
return accounting.formatMoney(x.dollar_value); 


}).join(', '); 


}; 
/1 
/本 三 三 三 三 三 三 三 三 三 三 三 三 


// 重 构 使 之 成 为 pointfree 函数 。 提 示 : 可 以 使 用 _,flip( ) 


var fastestCar = function(cars) { 


var sorted = _.sortBy(function(car){ return car.horsepower }, 
cars); 
Var fastest = _.last(sorted); 


return fastest.name + ' is the fastest ' ， 


下 


AA 
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第 6 章 : 示例 应 用 


声明 式 代码 


我 们 要 开始 转变 观念 了 ， 从 本 章 开 始 ， 我 们 将 不 再 指示 计算 机 如 何 工 作 ， 而 是 指出 
我 们 明确 希望 得 到 的 结果 。 我 敢 保 证 ， 这 种 做 法 与 那 种 需要 时 刻 关 心 所 有 细节 的 命 
令 式 编程 相 比 ， 会 让 你 轻松 许多 。 


与 命令 式 不 同 ， 声 明 式 意味 着 我 们 要 写 表达 式 ， 而 不 是 一 步 一 步 的 指示 。 


以 SQL 为 例 ， 它 就 没有 "“ 先 做 这 个 ， 再 做 那个 "的 命令 ， 有 的 只 是 一 个 指明 我 们 想 要 
从 数据 库 取 什么 数据 的 表达 式 。 至 于 如 何 取 数据 则 ep 自己 决定 的 。 以 后 数据 库 
升级 也 好 ，SQL 引擎 优化 也 好 ， 根 本 不 需要 更 改 查 询 语 名 。 这 是 因为 ， 有 多 种 方式 
解析 一 个 表达 式 并 得 到 相同 的 结果 。 


对 包括 我 在 内 的 一 些 人 来 说 ， 一 开始 是 不 太 容易 理解 “声明 式 " 这 个 概念 的 ; 所 以 让 
我 们 写 几 个 例子 找 找 感觉 。 
// 命令 式 
vo 
for (i = 0; i < cars.length; i++) { 
makes.push(cars[i].make); 


} 


A/ / 主 日 日 区 
AN 


var makes = cars.map(function(car){ return car make; }); 


命令 式 的 循环 要 求 你 必须 先 实例 化 一 个 数组 ， 而 且 执 行 完 这 个 实例 化 语句 之 后 ， 解 
释 器 才 继 续 执行 后 面 的 代码 。 然 后 再 直接 迭代 cars 列表 ， 手 动 增 加 计数 器 ， 把 
各 种 零 零 散 散 的 东西 都 展示 出 来 ... 实 在 是 直 白 得 有 些 露 骨 。 

使 用 map 的 版 本 是 一 个 表达 式 ， 它 对 执行 顺序 没有 要 求 。 而 且 ， map 元 数 如 何 


进行 选 代 ， 返 回 的 数组 如 何 收集 ， 都 有 很 大 的 自由 度 。 它 指明 的 是 做 什么 ， 不 
是 怎么 做 。 因 此 ， 它 是 正 儿 和 八 经 的 声明 式 代码 。 


除了 更 加 清晰 和 简洁 之 外 ， map 函数 还 可 以 进一步 优化 ， 这 么 一 来 我 们 宝贵 的 应 
用 代码 就 无 须 改 动 了 。 


至 于 那些 说 “虽然 如 此 ， 但 使 用 命令 式 循 环 速度 要 快 很 多 "的 人 ， 我 建议 你 们 先 去 学 
学 JIT 优化 代码 的 相关 知识 。 这 里 有 一 个 非常 棒 的 视频 ， 可 能 会 对 你 有 帮助 。 


再 看 一 个 例子 。 
// 命 今 式 
var authenticate = function(form) { 
Var USer = toUser (form); 
return logIn(user); 


J 


J He 
RAIN 


var authenticate = compose(logIn, toUser); 


虽然 命令 式 的 版 本 并 不 一 定 就 是 错 的 ， 但 还 是 硬 编码 了 那 种 一 步 接 一 步 的 执行 方 
式 。 而 compose 表达 式 只 是 简单 地 指出 了 这 样 一 个 事实 : 用 户 验 证 是 toUser 
和 logIn 两 个 行为 的 组 合 。 这 再 次 说 明 ， 声 明 式 为 潜在 的 代码 更 新 提供 了 支持 ， 
使 得 我 们 的 应 用 代码 成 为 了 一 种 高 级 规范 (high level specification) 。 


并 行 运算 。 它 与 纯 函 数 一 
我 们 监 的 不 需要 做 什 


因为 声明 式 代码 不 指定 执行 顺序 ， 所 以 它 天 然 地 适合 进行 
起 解释 了 为 何 函 数 式 编程 是 未 来 并 行 计算 的 一 个 不 错 选 择 
么 就 能 实现 一 个 并 行人 并 发 系统 。 





一 个 函数 式 的 flickr 


现在 我 们 以 一 种 声明 式 的 、 可 组 合 的 方式 创建 一 个 示例 应 用 。 暂 时 我 们 还 是 会 作 点 
小 葬 ， 使 用 副作用 ; 但 我 们 会 把 副作用 的 程度 降 到 最 低 ， 让 它们 与 纯 函 数 代码 分 离 
开 来 。 这 个 示例 应 用 是 一 个 浏览 器 widget， 功 能 是 从 再 ckr 获取 图 片 并 在 页 面 上 展 
示 。 我 们 从 写 html 开始 : 


<!IDOCTYPE html> 
<html> 
<head> 
<script src="https://cdnjs.cloudflare.com/ajax/libs/require. 
Js/2 1 /ednrne mln sy ></script> 
<script src="flickr.js"></script> 
</head> 
<body></body> 
</html> 


flickr.js 如 下 : 


requirejs.config({ 
paths: { 
ramda: 'https://cdnjs.cloudflare.com/ajax/libs/ramda/0.13.0/ 
ramda.min', 
Jquery: 'https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/ 
jquery .min' 


} 
}); 
require([ 
'ramda', 
'jquery' 


]， 
和 une tnone( Of 
var trace = _.curry(function(tag, x) { 
console.log(tag, x); 
return x; 


}); 
// app goes here 


}e 


这 里 我 们 使 用 了 ramda ， 没 有 用 lodash 或 者 其 他 类 库 。ramda 提供 了 
compose 、 curry 等 很 多 函数 。 模 块 加 载 我 们 选择 的 是 requirejs， 我 以 前 用 过 
requirejs， 虽 然 它 有 些 重 ， 但 为 了 保持 一 致 性 ， 本 书 将 一 直 使 用 它 。 另 外 ， 我 也 把 
trace 函数 写 好 了 ， 便 于 debug。 


有 点 跑题 了 。 言 归 正 传 ， 我 们 的 应 用 将 做 4 件 事 : 


1. 根据 特定 搜索 关键 字 构 造 url 
2. 向 flickr 发 送 api 请 求 

3. 把 返回 的 json 转 为 html 图 片 
4. 把 图 片 放 到 屏幕 上 


注意 到 没 ? 上 面 提 到 了 两 个 不 纯 的 动作 ， 即 从 fickr 的 api 获取 数据 和 在 屏幕 上 放 
置 图 片 这 两 件 事 。 我 们 先 来 定义 这 两 个 动作 ， 这 样 就 能 隔离 它们 了 。 


var Impure = { 
getJSON: _.curry(function(callback, url) { 
$.getJSON(url, callback); 
}), 


setHtml: _.curry(function(sel, html) { 
$(sel).html(html); 
}) 
}; 


这 里 只 是 简单 地 包装 了 一 下 jQuery 的 getJSON 方法 ， 把 它 变 为 一 个 curry 元 
数 ， 还 有 就 是 把 参数 位 置 也 调换 了 下 。 这 些 方法 都 在 Impure 命名 空间 下 ， 这 样 
我 们 就 知道 它们 都 是 危险 函数 。 在 后 面 的 例子 中 ， 我 们 会 把 这 两 个 函数 变 纯 。 


下 一 步 是 构造 url 传 给 Impure.getJSON 区 数 。 


var url = function (term) { 
return 'https://api.flickr.com/services/feeds/photos_ public.gn 
e?tags=' + term + '&format=json&jsoncallback=?'，; 


了 


借助 monoid 或 combinator (后 面 会 讲 到 这 些 概念 ) ， 我 们 可 以 使 用 一 些 奇 技 淫 巧 
来 让 url 函数 变 为 pointfree 函数 。 但 是 为 了 可 读 性 ， 我 们 还 是 选择 以 普通 的 非 
pointfree 的 方式 拼接 字符 串 。 


让 我 们 写 一 个 app 函数 发 送 请 求 并 把 内 容 放置 到 屏幕 上 。 





var app = _.compose(Impure.getJSON(trace("response")), url); 


app("cats"); 


这 会 调用 url 遂 数 ， 然 后 把 字符 串 传 给 getJSON 函数 。 getJSON 已 经 局 部 
应 用 了 trace ， 加 载 这 个 应 用 将 会 把 请 求 的 响应 显示 在 console 里 。 








©oe Developer Tools - file:///Users/brian/Documents/workshop/hardcorejs/demos/step1/flickr.html 
Q OD jElements| Network Sources Timeline Profiles Resources Audits Console 三 阁 回 , 
Styles Computed Event Listeners » 
v<htnl> element. sty\ 
> <head>_</head> element.style { 
> <body></bod } 
</htal> body { user agent stylesheet 


html | body | nd in Style 
Console Search Emulation Rendering 


© <topframe> v Preserve log 


response flickr, is:27 
voObject {title: "Recent Uploads tagged cats", link: "http://www.flickr.com/photos/tags/cats/", description: "", modified: "2815-85-84T15:38:252", generator: 
“http://www. flickr, com/"..} 
description: "" 
generator: "http://www.flickr.com/™ 
v items: Array[29] 
v8: 0bject 
author: "nobody@flickr,.com (Pink Knitter)" 
author_id: “97637500GN80” 
date_taken: "2015-05-04T08:38:25-08:90” 
description: ”<p><a href="http://www.flickr.com/people/pinkknitter/">Pink Knitter</a> posted a photo:</p> <p><a 
http://www. flickr.com/photos/pinkknitter/17342808536/" title= Mosaic Monday ~- A new season has arrived"><img 
http://farm9. staticflickr. com/8698/17342880536_13a2e8767d_m.jpg" width="192" height="240" alt="Mosaic Monday ~ A new season has arrived”/></a></p> <p>1. 
"http://flickr. com/photos/49278193GN86/15891166163/">Drawing Cute Cats,....</a>, 2. <a 
href="http://flickr. com/photos/89178937@N87/17333837536/">_7580221-1</a>, 3. <a href="http://flickr.com/photos/26834791@N88/17123158727/">Pepper and his work 
of art in the background from a week ago. I have yet to go to Ikea for a replacement. This was the last of my favorite paper shades (pre-cats). Now I shop fo_ 
the cats.</a>, 4. <a href="http://flickr.com/photos/7820799@6N02/14572663159/">ICAD # 58 Romance</a>, 5. <a 
href="http://flickr. com/photos/7820799@N02/16362784982/">Fantasy 11x14 canvas</a>, 6. <a href="http://flickr.com/photos/60138508@N06/16584263674/">Jess and 
Max</a>, 7. <a href="http://flickr,com/photos/32134444@N87/17291974625/">Roman</a>, 8. <a 
http://flickr.com/photos/130139341@N02/171972269821/">Untitled</a>, 9. <a href="http://flickr.com/photos/57686891@N08/17131693295/">today ...</a>, 10. <- 
http://flickr. com/photos/29745380GN05/17984147877/">new baby goats!</a>, 11. <a href="http://flickr.com/photos/89178937@N87/16490577293/">Misty morning 
moonrise</a>, 12, <a href="http://flickr,.com/photos/63485935@N04/16923720156/">milky way</a>, 13. <a 
http://flickr, com/photos/30034673@N03/17100712836/">Needle Felted Dog Extra Large Example Maltese. Hello Spring.</a>, 14. <a 
http://fLickr.com/photos/29745380GN65/17192311725/">tittte patchwork bags</a>, 15. <a 
href="http://flickr. com/photos/40765196@N05/16171280922/">Pomegranate dye fabric</a>, 16. <a href="http://flickr.com/photos/78683307@N04/16473584466/"> 跟 常 初 估 
计 的 一 模 组 不 也 拆 不 下 去 一 ! </a>，17。<a href="http://flickr,.com/photos/127734485@N03/15552545946/">Pixel</a>, 18. <a 
href="http://flickr. com/photos/86615956@N086/16859761028/">Barcelona</a>, 19. <a href="http;//fLickr.com/photos/130837082GN83/16614751856/">Too coot</a>，20. 
<a href="http://flickr.com/photos/118353524@N985/166751090555/">Lit Up Palms</a><br /> <br /> Created with <a href="http://bighugelabs.com" rel="nofollow">fd's 
Flickr Toys</a></p>" 
Link: “http://www. flickr.com/photos/pinkknitter/17342888536/" 
media: Object 
"http://farm9. staticflickr. com/8698/17342808536_13a2e0767d_m. jpg” 
pb _proto_: Object 
published: "2015-85-04T15:38:252" 
tags: "trees cats sun art dogs words fdsflickrtoys kettLes mosaicmonday" 
title: "Mosaic Monday - A new season has arrived" 
* _proto_:; 0bject 
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我 们 想 要 从 这 个 json 里 构造 图 片 ， 看 起 来 src 都 在 items 数组 中 的 每 个 
media 对 象 的 m 属性 上 。 


不 管 怎样 ， 我 们 可 以 使 用 ramda 的 一 个 通用 getter 函数 来 获取 这 些 具 
大 的 属性 “不 过 为 了 让 你 明白 这 个 函数 做 了 什么 可 情 ， 我 们 自己 实现 一 个 prop 


var prop = _,curry(function(property，object){ 
return object[property] ， 


这 有 点 傻 ， 仅 仅 是 用 [] 来 获取 一 个 对 象 的 属性 而 已 。 让 我 们 利用 这 个 函 
广 
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Var mediaUrl = _.compose(_.prop('m'), _.prop('media')); 


Var Srcs = _.compose(_.map(mediaUr1l), _.prop('items')); 


一 旦 得 到 了 items ， 就 必须 使 用 map 来 分 解 每 一 个 url ; 这 样 就 得 到 了 一 个 包 
含 所 有 src 的 数组 。 把 它 和 app 联结 起 来 ， 打 印 结果 看 看 。 


var renderImages = _.compose(Impure.setHtmil("body"), srcs); 
var app = _.compose(Impure.getJSON(renderIimages), url); 


这 里 所 做 的 只 不 过 是 新 建 了 一 个 组 合 ， 这 个 组 合 会 调用 srcs 函数 ， 并 把 返回 结 
果 设 置 为 body 的 html。 我 们 也 把 trace 替换 为 了 renderImages ， 因 为 已 经 
有 了 除 原始 json 以 外 的 数据 。 这 将 会 粗暴 地 把 所 有 的 src 直接 显示 在 屏幕 上 。 


最 后 一 步 是 把 这 些 src 变 为 真正 的 图 片 。 对 大 型 点 的 应 用 来 说 ， 是 应 该 使 用 类 似 
Handlebars 或 者 React 这 样 的 template/dom 库 来 做 这 件 事 的 。 但 我 们 这 个 应 用 太 
小 了 ， 只 需要 一 个 img 标签 ， 所 以 用 jQuery 就 好 了 。 


var img = function (url) { 
returm $s <img /> {Sree ur 


了 


jQuery 的 html() 方法 接受 标签 数组 为 参数 ， 所 以 我 们 只 须 把 src 转换 为 img 标 
签 然后 传 给 setHtml 即 可 。 


Var images = _.compose(_.map(img), srcs); 
var renderImages = _.compose(Impure.setHtml("body"), images); 
var app = _.compose(Impure.getJSON(renderIimages), url); 


© /Nsen 
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requirejs.config({ 
paths: { 
ramda: 'https://cdnjs.cloudflare.com/ajax/libs/ramda/0.13.0/ 
ramda.min', 
Jquery: 'https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/ 
jquery.min' 
} 
}); 


require([ 
'ramda', 
jquery 
]， 
Funetmonn (ee On 
AS IIISI SI II SISSIES SSNS NSIS NIN SII SSN 
人 Us 


var Impure = { 
getJSON: _.curry(function(callback, url) { 
$.getJSON(url, callback); 
}), 


Ol 


~ 


setHtml: _.curry(function(sel, html) { 
$(sel).html(html); 
}) 
}; 


var img = function (url) { 
returm $s( <Img /> Sree ur 


}; 

var trace = _.curry(function(tag, x) { 
console.log(tag, x); 
return x; 

}); 


OASIS 


var url = function (t) { 
return 'https://api.flickr.com/services/feeds/photos publi 
c.gne?tags="' + t + '&format=json&]jsoncallback=?'; 


}; 

var mediaUrl = _.compose(_.prop('m'), _.prop('media')); 

Var Srcs = _.compose(_.map(mediaUrl1), _.prop('items')); 

var images = _.compose(_.map(img), srcs); 

Var renderImages = _.compose(Impure.setHtml("body"), images) 
var app = _.compose(Impure.getJSON(renderIimages), url); 


app("cats"); 
}); 


看 看 ， 多 么 美妙 的 声明 式 规范 啊 ， 只 说 做 什么 ， 不 说 怎么 做 。 现 在 我 们 可 以 把 每 一 
行 代码 都 视 作 一 个 等 式 ， 变 量 名 所 代表 的 属性 就 是 等 式 的 含义 。 我 们 可 以 利用 这 些 
属性 去 推导 分 析 和 重 构 这 个 应 用 。 


有 原则 的 重 构 


上 面 的 代码 是 有 优化 空间 的 一 我们 获取 url map 了 一 次 ， 把 这 些 url 变 为 img 标 
签 又 map 了 一 次 。 关 于 map 和 组 合 是 有 定律 的 : 


// map 的 组 合 律 


var law = compose(map(f), map(g)) == map(compose(f, 9g)); 


我 们 可 以 利用 这 个 定律 优化 代码 ， 进 行 一 次 有 原则 的 重 构 。 


// 原 有 代码 

var mediaUrl = _.compose(_.prop('m'), _.prop('media')); 
Var Srcs = _.compose(_.map(mediaUrl1), _.prop('items')); 
var images = _.compose(_.map(img), srcs); 


感谢 等 式 推导 (equational reasoning) 及 纯 函 数 的 特性 ， 我 们 可 以 内 联 调 用 
srcs 和 images ， 也 就 是 把 map 调用 排列 起 来 。 


var mediaUrl = _.compose(_.prop('m'), _.prop('media')); 
var images = _.compose(_.map(img), _.map(mediaUr1l), _.prop('item 
s')); 


把 map 排 成 一 列 之 后 就 可 以 应 用 组 合 律 了 。 


Var mediaUrl = _.compose(_.prop('m'), _.prop('media')); 
Var images = _.compose(_.map(_.compose(img, mediaUr1)), _.prop(" 
items"' )); 


现在 只 需要 循环 一 次 就 可 以 把 每 一 个 对 象 都 转 为 img 标签 了 。 我 们 把 map 调用 的 
compose 取出 来 放 到 外 面 ， 提 高 一 下 可 读 性 。 


var mediaUrl = _.compose(_.prop('m'), _.prop('media')); 


var mediaToImg = _.compose(img, mediaUr1); 
var images = _.compose(_.map(mediaToImg), _.prop('items')); 
总 结 


OGA We 

数 式 这 个 “数学 框架 ”来 推导 和 重 构 代码 了 。 但 是 弄 常 处 理 以 及 代码 分 支 呢 ?如 何 让 
整个 应 用 都 是 函数 式 的 ， 而 不 仅仅 是 把 破坏 性 的 函数 放 到 命名 空间 下 ? 如何 让 应 用 
更 安全 更 富有 表现 力 ? 这些 都 是 本 书 第 2 部 分 将 要 解决 的 问题 。 


第 7 章 : Hindley-Milner 类 型 签名 


Hindley-Milner 类 型 签名 


初 识 类 型 


刚 接触 函数 式 编程 的 人 很 容易 深 陷 类 型 签名 (type signatures) 的 泥 淖 。 类 型 
(type) 是 让 所 有 不 同 背 景 的 人 都 能 高 效 沟通 的 元 语言 。 很 大 程度 上 ， 类 型 签名 是 
以 “Hindley-Milner” 系统 写 就 的 ， 本 章 我 们 将 一 起 探究 下 这 个 系统 


类 型 签名 在 写 纯 函数 时 所 起 的 作用 非常 大 ， 大 到 美语 都 不 能 望 其 项 背 。 这 些 签名 轻 
轻 诉说 着 函数 最 不 可 告 人 的 秘密 。 短 短 一 行 ， 就 能 暴露 函数 的 行为 和 目的 。 类 型 签 
名 还 衍生 出 了 “自由 定理 (free theorems) ”的 概念 。 因 为 类 型 是 可 以 推断 的 ， 所 以 
明确 的 类 型 签名 并 不 是 必要 的 ; 不 过 你 完全 可 以 写 精确 度 很 高 的 类 型 签名 ， 也 可 以 
让 它们 保持 通用 、 抽 象 。 类 型 签名 不 但 可 以 用 于 编译 时 检测 (compile time 
checks) ， 还 是 最 好 的 文档 。 所 以 类 型 签名 在 函数 式 编程 中 扮演 着 非常 重要 的 角色 
一 重要 程度 远 远 超出 你 的 想象 。 


网 


JavaScript 是 一 种 动态 类 型 语言 ， 但 这 并 不 意味 着 要 一 味 否定 类 型 。 我 们 还 是 要 和 
字符 串 、 数 值 、 布 尔 值 等 等 类 型 打交道 的 ; 只 不 过 ， 语 言 层面 上 没有 相关 的 集成 让 
a nn 
也 可 以 用 注释 来 达到 区 分 类 型 的 目的 。 


JavaScript 也 有 一 些 类 型 检查 工具 ， 比 如 Flow， 或 者 它 的 静态 类 型 方言 TypeScript 
ee ee se pole 0 
择 所 有 函数 式 语言 都 遵循 的 标准 类 型 系统 。 


神秘 的 传奇 故事 


从 积 尘 已 久 的 数学 书 ， 到 浩如烟海 的 学 术 论 文 ; 从 每 周 必 读 的 博客 文章 ， 到 源 代 码 
本 身 ， 我 们 都 能 发 现 Hindley-Milner 类 型 签名 的 身影 。Hindley-Milner 并 不 是 一 个 
复杂 的 系统 ， 但 还 是 需要 一 些 解释 和 练习 才能 完全 掌握 这 个 小 型 语言 的 要 义 。 


/eapneelizen Selimnge > Seing 
var capitalize = function(s)t{ 
return toUpperCase(head(s)) + toLowerCase(taill(s)); 


capitalize("smurf"); 
//=> "Smurf" 


A 


这 里 ， capitalize 接受 一 个 String 并 返回 了 一 个 String 。 先 别管 实现 ， 
我 们 感 兴 趣 的 是 它 的 类 型 签名 局 


在 Hindley-Milner 系统 中 ， 郊 数 都 写成 类 似 a -> b 这 个 样子 ， 其 中 a 和 b 
不 任 总 类 型 的 变量 。 因 此 ， BS 函数 的 类 型 签名 可 以 理解 为 “一 个 接受 
String 返回 String 的 函数 "。 换 和 名 话说 ， 它 接受 一 个 String 类 型 作为 输 
入 ， 并 返回 一 个 String 类 型 的 输出 。 


// StrLength :: String -> Number 
var strLength = function(s)t{ 
return s.length,; 


Wonm San > Sum > Seang 
var join = curry(function(what, xs)t 
return xs. join(what ) ; 


}); 


/+ match :: Regex -> String -> [String] 
var match = curry(function(reg, Ss)t{ 
return s.match(reg); 


} yp 


// replace :: Regex -> String -> String -> String 
var replace = curry(function(reg, sub, s)t{ 
return s.replace(reg, sub); 


}); 


strLength 和 capitalize 类 似 : 接受 一 个 String 然后 返回 一 个 


Number “。 


至 于 其 他 的 ， 第 一 眼看 起 来 可 能 会 比较 疑惑 。 不 过 在 还 不 完全 了 解 细节 的 情况 下 ， 
你 尽 可 以 把 最 后 一 个 类 型 视 作 返回 值 。 那 么 match 兄 数 就 可 以 这 么 理解 : 它 接受 
一 个 Regex 和 一 个 _ String ， 返 回 一 个 [String] 。 但 是 ， 这 里 有 一 个 非常 
有 趣 的 地 方 ， 请 允许 我 稍 作 解释 。 


对 于 match 函数 ， 我 们 完全 可 以 把 它 的 类 型 签名 这 样 分 组 : 


/momaten Regqex > (Sm > So 
var match = curry(function(reg, s){ 
return s.match(reg); 


}); 


是 的 ， 把 最 后 两 个 类 型 包 在 括号 里 就 能 反映 更 多 的 信息 了 。 现 在 我 们 可 以 看 出 
match 这 个 函数 接受 一 个 Regex 作为 参数 ， 返 回 一 个 从 string 到 
[String] 的 有 函数。 因为 curry， 造 成 的 结果 就 是 这 样 : 给 match 区 数 一 个 
Regex ， 得 到 一 个 新 函数 ， 能 够 处 理 其 String 参数 。 当 然 了 ， 我 们 并 非 一 定 

要 这 么 看 待 这 个 过 程 ， 但 这 样 思 考 有 助 于 理解 为 何 最 后 一 个 类 型 是 返回 值 。 


/XZ/ Mmatcehne: Regex > (String® >"Tsteringl 


ZEonuolauay ee Serunge > Stang 
var onHoliday = match(/holiday/ig); 


每 传 一 个 参数 ， 就 会 弹出 类 型 签名 最 前 面 的 那个 类 型 。 所 以 onHoliday 就 是 已 
经 有 了 Regex 参数 的 match 。 


// replace :: Regex -> (String -> (String -> String)) 
var replace = curry(function(reg, sub, s){ 
return s.replace(reg, sub); 


}); 


但 是 在 这 段 代 码 中 ， 就 像 你 看 到 的 那样 ， 为 replace 加 上 这 么 多 括号 未 免 有 些 多 
余 。 所 以 这 里 的 括号 是 完全 可 以 省 略 的 ， 如 果 我 们 愿意 ， 可 以 一 次 性 把 所 有 的 参数 
都 传 进来 ; 所 以 ， 一 种 更 简单 的 思路 是 : replace 接受 三 个 参数 ， 分 别 是 


日 


Regex 、 String 和 另 一 个 String ， 返 回 的 还 是 一 个 String 。 


最 后 几 点 : 


// id :: a ->a 


var id = function(x){ return x; } 


/emapne (a 0) a id 
var map = curry(function(f, xs)t 
return xs.map(f); 


Ds 


这 里 的 id 逻 数 接受 任意 类 型 的 a 并 返回 同一 个 类 型 的 数据 。 和 普通 代码 一 
样 ， 我 们 也 可 以 在 类 型 签名 中 使 用 变量 。 把 变量 命名 为 a 和 b 只 是 一 种 约定 俗 
成 的 习惯 ， 你 可 以 使 用 任何 你 喜欢 的 名 称 。 对 于 相同 的 变量 名 ， 其 类 型 也 一 定 相 

同 。 这 是 非常 重要 的 一 个 原则 ， 所 以 我 们 必须 重申 : a -> b 可 以 是 从 任意 类 型 
的 a 到 任意 类 型 的 bp ， 但 是 a -> a 必须 是 同一 个 类 型 。 例 如 ， id 可 以 是 
String -> String ， 也 可 以 是 Number -> Number ， 但 不 能 是 String -> 
Bool 。 


相似 地 ， map 也 使 用 了 变量 ， 只 不 过 这 里 的 b 可 能 与 a 类 型 相同 ， 也 可 能 不 
相同 。 我 们 可 以 这 么 理解 : map 接受 两 个 参数 ， 第 一 个 是 从 任意 类 型 a 到 任意 
类 型 b 的 函数 ; 第 二 个 是 一 个 数组 ， 元 素 是 任意 类 型 的 a ; map 最 后 返回 的 
是 一 个 类 型 b 的 数组 。 


类 型 签名 的 美妙 令 人 印象 深刻 ， 希 望 你 已 经 被 它 深 深 折服 。 类 型 签名 简直 能 够 一 字 
一 名 地 告诉 我 们 函数 做 了 什么 事情 。 比 如 map 函数 就 是 这 样 : 给 定 一 个 从 a 到 
b 的 函数 和 一 个 a 类 型 的 数组 作为 参数 ， 它 就 能 返回 一 个 b 类 型 的 数 
组 。 map 唯一 的 明智 之 举 就 是 使 用 其 函数 参数 调用 每 一 个 a ， 其 他 所 有 操作 都 
是 凉 头 。 


辨别 类 型 和 它们 的 含义 是 一 项 重要 的 技能 ， 这 项 技能 可 以 让 你 在 函数 式 编程 的 路 上 
走 得 更 远 。 不 仅 论 文 、 博 客 和 文档 等 更 易 理解 ， 类 型 签名 本 身 也 基本 上 能 够 告诉 你 
它 的 函数 性 (functionality) 。 要 成 为 一 个 能 够 熟练 读 懂 类 型 签名 的 人 ， 你 得 勤 于 练 
习 ; 不 过 一 旦 掌握 了 这 项 技能 ， 你 将 会 受益 无 穷 ， 不 读 手册 也 能 获取 大 量 信息 。 


这 里 还 有 一 些 例子 ， 你 可 以 自己 试 试看 能 不 能 理解 它们 。 


aneade lal >a 
var head = function(xs){ return xs[0]; } 


27 er (ee > Boo > [al >aad 
var filter = curry(function(f, xs){ 
return xs.filter(f); 


] 


// reduce :: (b ->a -> b) ->b -> [al -> pb 
var reduce = curry(function(f, x, xs)t{ 
return xs.reduce(f, x); 


J 


reduce 可 能 是 以 上 签名 里 让 人 印象 最 为 深刻 的 一 个 ， 同 时 也 是 最 复杂 的 一 个 
了 ， 所 以 如 果 你 理解 起 来 有 困难 的 话 ， 也 不 必 气 馆 。 为 了 满足 你 的 好 奇 心 ， 我 还 是 
试 着 解释 一 下 吧 ; 尽管 我 的 解释 远 远 不 如 你 自己 通过 类 型 签名 理解 其 含义 来 得 有 教 


Zs oO 


-ID 


不 保证 解释 完全 正确 ...( 译 者 注 ; 此 处 原文 是 “here goes nothing”， 一 般 用 于 人 们 
在 做 没有 把 握 的 事情 之 前 说 的 话 。) 注意 看 reduce 的 签名 ， 可 以 看 到 它 的 第 一 
个 参数 是 个 函数 ， 这 个 函数 接受 一 个 b 和 一 个 a 并 返回 一 个 bp 。 那 么 这 些 

a 和 b 是 从 哪 来 的 呢 ? 很 简单 ， 签 名 中 的 第 二 个 和 第 三 个 参数 就 是 b 和 元 素 
为 a 的 数组 ， 所 以 唯一 合理 的 假设 就 是 这 里 的 b 和 每 一 个 a 都 将 传 给 前 面 
说 的 函数 作为 参数 。 我 们 还 可 以 看 到 ， reduce 元 数 最 后 返回 的 结果 是 一 个 

b ， 也 就 是 说 ， reduce 的 第 一 个 参数 函数 的 输出 就 是 reduce 函数 的 输出 。 
知道 了 reduce 的 含义 ， 我 们 才 敢 说 上 面 关于 类 型 签名 的 推理 是 正确 的 。 


> ys 
缩小 可 能 性 沁 
一 旦 引入 一 个 类 型 变量 ， 就 会 出 现 一 个 奇怪 的 特性 叫做 
parametricity (hitp://en.wikipedia.org/wiki/Parametricity ) 。 这 个 特性 表明 ， 函 数 


将 会 以 一 种 统一 的 行为 作用 于 所 有 的 类 型 。 我 们 来 研究 下 : 


// head :: [al -> a 


注意 看 head ， 可 以 看 到 它 接受 [a] 返回 a 。 我 们 除了 知道 参数 是 个 数 

组 ， 其 他 的 一 概 不 知 ; 所 以 函数 的 功能 就 只 限于 操作 这 个 数组 上 。 在 它 对 a 一 
无 所 知 的 情况 下 ， 它 可 能 对 a 做 什么 操作 呢 ? 换 和 名 话说，a 告诉 我 们 它 不 是 一 
个 特定 的 类 型 ， 这 意味 着 它 可 以 是 任意 类 型 ; 那么 我 们 的 函数 对 每 一 个 可 能 的 
类 型 的 操作 都 必须 保持 统一 。 这 就 是 parametricity 的 含义 。 要 让 我 们 来 猜测 

head 的 实现 的 话 ， 唯 一 合理 的 推断 就 是 它 返 回 数 组 的 第 一 个 ， 或 者 最 后 一 个 ， 
或 者 某 个 随机 的 元 素 ; 当然 ，head 这 个 命名 应 该 能 给 我 们 一 些 线索 。 


再 看 一 个 例子 : 


revensees: eele > liad 


仅 从 类 型 签名 来 看 ， reverse 可 能 的 目的 是 什么 ?了 再 次 强调 ， 它 不 能 对 a 做 任 
何 特定 的 事情 。 它 不 能 把 a 变 成 另 一 个 类 型 ， 或 者 引入 一 个 b ; 这 都 是 不 可 能 
的 。 那 它 可 以 排序 么 ?答案 是 不 能 ， 没 有 足够 的 信息 让 它 去 为 每 一 个 可 能 的 类 型 排 
序 。 它 能 重新 排列 么 ? 可 以 的 ， 我 觉得 它 可 以 ， 但 它 必 须 以 一 种 可 预料 的 方式 达成 
目标 。 另 外 ， 它 也 有 可 能 删除 或 者 重复 某 一 个 元 素 。 重 点 是 ， 不 管 在 哪 种 情况 下 ， 
类 型 a 的 多 态 性 《polymorphism ) 都 会 大 幅 缩小 reverse 函数 可 能 的 行为 的 
范围 。 


这 种 “可 能 性 范围 的 缩小 ” (narrowing of possibility) 允许 我 们 利用 类 似 Hoogle 这 
样 的 类 型 签名 搜索 引擎 去 搜索 我 们 想 要 的 函数 。 类 型 签名 所 能 包含 的 信息 量 丨 的 非 
常 大 。 


目 由 定理 


类 型 签名 除了 能 够 帮助 我 们 推断 函数 可 能 的 实现 ， 还 能 够 给 我 们 带 来 自由 定理 
(free theorems) 。 下 面 是 两 个 直接 从 Wadler 关于 此 主题 的 论文 中 随机 选择 的 例 

J 

/Neadee: la > 


compose(f, head) == compose(head, map(f)); 


// filter :: (a -> Bool) -> [al -> [al 
compose(map(f), filter(compose(p, f))) == compose(filter(p), map 


(f)); 


不 用 写 一 行 代 码 你 也 能 理解 这 些 定理 ， 它 们 直接 来 自 于 类 型 本 身 。 第 一 个 例子 中 ， 
等 式 左 边 说 的 是 ， 先 获取 数组 的 头 部 ( 译 者 注 : 即 第 一 个 元 素 ) ， 然 后 对 它 调用 
函数 f ; 等 式 右边 说 的 是 ， 先 对 数组 中 的 每 一 个 元 素 调 用 f We 
结果 的 头 部 。 这 两 个 表达 式 的 作用 是 相等 的 ， 但 是 前 者 要 快 得 多 。 


你 可 能 会 想 ， 这 不 是 常识 么 。 但 根据 我 的 调查 ， 计 算 机 是 没有 常识 的 。 实 际 上 ， 计 
算 机 必须 要 有 一 种 形式 化 方法 来 自动 进行 类 似 的 代码 优化 。 数 学 提供 了 这 种 方法 ， 
能 够 形式 化 直观 的 感觉 ， 这 无 疑 对 死板 的 计算 机 逻辑 非常 有 用 。 


第 二 个 例子 filter 也 是 一 样 。 等 式 左 边 是 说 ， 先 组 合 f 和 p 检查 哪些 元 素 
要 过 滤 掉 ， 然 后 再 通过 map 实际 调用 f ( 别 态 了 filter 是 不 会 改变 数组 中 
元 素 的 ， 这 就 保证 了 a Wa ; 等 式 右 边 是 说 ， 先 用 map 调用 f ， 然 
后 再 根据 p 过 滤 元 素 。 这 两 者 也 是 相等 的 。 


以 上 只 是 两 个 例子 ， 但 它们 传达 的 定理 却 是 普 适 的 ， 可 以 应 用 到 所 有 的 多 态 性 类 型 
签名 上 。 在 JavaScript 中 ， 你 可 以 借助 一 些 工 具 来 声明 重 写 规则 ， 也 可 以 直接 使 用 
compose 区 数 来 定义 重 写 规则 。 总 之 ， 这 么 做 的 好 处 是 显 而 细 见 且 唾 手 可 得 的 ， 
可 能 性 则 是 无 限 的 。 


最 后 要 注意 的 一 点 是 ， 签 名 也 可 以 把 类 型 约束 为 一 个 特定 的 接口 (interface) 。 


/A/SOrtee orgqa > lal > al 


胖 箭 头 堪 边 表明 的 是 这 样 一 个 事实 : a 一 定 是 个 0rd 对 象 。 也 就 是 说 ，a 必 
须要 实现 Ord 接口 。 ord 到 底 是 什么 eg 言 中 ， 
它 可 能 就 是 一 个 自 定义 的 接口 ， 能 够 让 不 同 的 值 排序 i ， 我们 不 仅 能 
够 获取 关于 a 的 更 多 信息 ， 了 解 sort 函数 具 a 且 还 能 限制 函数 
的 作用 范围 。 我 们 把 这 种 接口 声明 叫做 类 型 约束 (type aki ° 





// assertEqual :: (Eq a, Show a) => a -> a -> Assertion 


这 个 例子 中 有 两 个 约束 : Eq 和 Show 。 它 们 保证 了 我 们 可 以 检查 不 同 的 a 是 
否 相等 ， 并 在 有 不 相等 的 情况 下 打印 出 其 中 的 差异 


我 们 将 会 在 后 面 的 章节 中 看 到 更 多 类 型 约束 的 例子 ， 其 含义 也 会 更 加 清晰 。 


各 千 


Ek 


/ 


Hindley-Milner 类 型 签名 在 函数 式 编程 中 无 处 不 在 ， 它 们 简单 易 读 ， 写 起 来 也 不 复 
杂 。 但 仅仅 赁 签名 就 能 理解 整个 程序 还 ese 定 难度 的 ， 要 想 精 通 这 个 技能 就 更 需 
要 花 点 时 间 了 。 从 这 开始 ， 我 们 将 给 每 一 行 代码 都 加 上 类 型 签名 。 


8 章 : 特 百 囊 


特 百 患 


( 译 者 注 : 特 百 患 是 美国 家 居 用 品 品 牌 ， 代 表 产 品 是 塑料 容器 。) 


强大 的 容器 
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我 们 已 经 知道 如 何 书写 函数 式 的 程序 了 ， 即 通过 管道 把 数据 在 一 系列 纯 函 数 间 传递 
的 程序 。 我 们 也 知道 了 ， 这 些 程序 就 是 声明 式 的 行为 规范 。 但 是 ， 控 制 流 (control 
flow) 、 弄 常 处 理 (error handling) 、 弄 步 操作 (asynchronous actions) 和 状态 

(state) 呢 ? 还 有 更 棘手 的 作用 (effects) 呢 ? 本 章 将 对 上 述 这 些 抽象 概念 赖 以 建 
立 的 基础 作 一 番 探 完 。 


首先 我 们 将 创建 一 个 容器 (container) 。 这 个 容器 必须 能 够 装载 任意 类 型 的 值 ; 否 
则 的 话 ， 像 只 能 装 木薯 布丁 的 密封 塑料 袋 是 没什么 用 的 。 这 个 容器 将 会 是 一 个 对 
象 ， 但 我 们 不 会 为 它 添加 面向 对 象 观念 下 的 属性 和 方法 。 是 的 ， 我 们 将 把 它 当 作 一 


个 百宝箱 一 一 一 个 存放 宝贵 的 数据 的 特殊 盒子 。 


var Container = function(x) { 
this. value = x; 


Container.of = function(x) { return new Container (x); }; 


这 是 本 书 的 第 一 个 容器 ， 我 们 贴心 地 把 它 命名 为 Container 。 我 们 将 使 用 
Container.of 作为 构造 器 (constructor) ， 这 样 就 不 用 到 处 去 写 糟糕 的 ”new 
关键 字 了 ， 非 常 省 心 。 实 际 上 不 能 这 么 简单 地 看 待 of 函数 ， 但 暂时 先 认 为 它 是 
把 值 放 到 容器 里 的 一 种 方式 。 


我 们 来 检验 下 这 个 二 新 的 盒子 : 


Container ,of(3) 
//=> Container(3) 


Container.of("hotdogs") 
//=> Container("hotdogs") 


Container .of(Container.of({name: "yoda"})) 
”=>>Comtanmner (Comntanner(mnames ee Vodar em) 


如 果 用 的 是 node， 那 么 你 会 看 到 打印 出 来 的 是 { value: x} ， 而 不 是 实际 值 
Container(x) ; Chrome 打印 出 来 的 是 正确 的 。 不 过 这 并 不 重要 ， 只 要 你 理解 
Container 是 什么 样 的 就 行 了 3 了。 有 些 环境 下 ， 你 也 可 以 重 写 inspect 方法 ， 

但 我 们 不 打算 涉及 这 方面 的 知识 。 在 本 书 中 ， 出 于 教学 和 美学 上 的 考虑 ， 我 们 将 把 

概念 性 的 输出 都 写成 好 像 inspect 被 重 写 了 的 样子 ， 因 为 这 样 写 的 教育 意义 将 远 

远大 于 {_ value: x} 。 


在 继续 后 面 的 内 容 之 前 ， 先 澄清 几 点 


只 有 一 个 属性 的 对 象 。 尽 管 容器 可 以 有 不 止 一 个 的 属性 ， 但 
只 有 一 个 。 我 们 很 随意 地 把 container 的 这 个 属性 命名 为 


e Container 
大 多 数 容器 还 


Value °° 


让 个 
还 是 只 


。 value 不 能 是 某 个 特定 的 类 型 ， 不 然 Container 就 对 不 起 它 这 个 名 字 
了 。 

e 数据 一 旦 存放 到 Container ， 就 会 一 直 待 在 那儿 。 我 们 可 以 用 
获取 到 数据 ， 但 这 样 做 有 悖 初衷 。 


Value 


如 果 把 容器 想象 成 玻璃 鲍 的 话 ， 上 面 这 三 条 陈述 的 理由 就 会 比较 清晰 了 。 但 是 暂 
时 ， 请 先 保 持 耐心 。 


大 大 


第 一 个 functor 


一 旦 容器 里 有 了 值 ， 不 管 这 个 值 是 什么 ， 我 们 就 需要 一 种 方法 来 让 别 的 函数 能 够 探 


它 。 


寺 


// (a -> b) -> Container a -> Container b 
Container .prototype.map = function(f){ 
return Container.of(f(this. value)) 


这 个 map 跟 数 组 那个 著名 的 map 一 样 ， 除 了 前 者 的 参数 是 Container a 而 
后 者 是 [al 。 它 们 的 使 用 方式 也 几乎 一 致 : 


Container.of(2).map(function(two){ return two + 2 }) 
//=> Container(4) 


Container .of("flamethrowers").map(function(s){ return s.toUpperc 
ase() }) 
//=> Container ("FLAMETHROWERS") 


Container.of("bombs").map(concat(' away')).map(_.prop('length')) 
//=> Container(10) 


为 什么 要 使 用 这 样 一 种 方法 ? 因为 我 们 能 够 在 不 离开 Container 的 情况 下 操作 
容器 里 面 的 值 。 这 是 非常 了 不 起 的 一 件 事 情 。 Container 里 的 值 传递 给 map 函 
数 之 后 ， 就 可 以 任 我 们 操作 ; 操作 结束 后 ， 为 了 防止 意外 再 把 它 放 回 它 所 属 的 


Container 。 这 样 做 的 结果 是 ， 我 们 能 连续 地 调用 map ， 和 运行 任何 我 们 想 运 行 
的 函数 。 其 至 还 可 以 改变 值 的 类 型 ， 就 像 上 面 最 后 一 个 例子 中 那样 。 


等 等 ， 如 果 我 们 能 一 直 调 用 map ， 那 它 不 就 是 个 组 合 (composition) 么 ! 这 里 边 
是 有 什么 数学 魔法 在 起 作用 ?是 functor。 各 位 ， 这 个 数学 魔法 就 是 functor。 


只 喧 


functor 是 实现 了 map 吕 数 并 遵守 一 些 特定 规则 的 容器 类 娃 


网 


全 


没 错 ，functor 就 是 一 个 签 了 合约 的 接口 。 我 们 本 来 可 以 简单 地 把 它 称 为 

Mappable ， 但 这 样 就 没有 fun 〈 译 者 注 : 指 functor 中 包含 fun 这 个 单 
词 ， 是 一 双关 语 ) 了 ， 对 吧 ? functor 是 范畴 学 里 的 概念 ， 我 们 将 在 本 草 末尾 详细 探 
索 与 此 相关 的 数学 知识 ; 暂时 我 们 先 用 这 个 名 字 很 奇怪 的 接口 做 一 些 不 那么 理论 

的 、 实 用 性 的 练习 。 


把 值 装 进 一 个 容器 ， 而 且 只 能 使 用 map 来 处 理 它 ， 这 么 做 的 理由 到 底 是 什么 呢 ? 
a oe dt A 答案 就 很 明显 了 : 让 容器 自己 去 运用 函数 能 给 我 们 带 来 什 
么 好 处 ?答案 ~ ， 对 于 函数 运用 的 抽象 。 当 map 一 个 函数 的 时 候 ， 我 们 请 求 
容器 来 运行 这 个 函数 。 不 夸张 地 讲 ， 这 是 一 种 十 分 强大 的 理念 。 


薛 定 请 的 Maybe 





说 实话 Container 挺 无 聊 的 ， 而 且 通常 我 们 称 它 为 Identity ， 与 id 遂 数 

的 作用 相同 (这 里 也 是 有 数学 上 的 联系 的 ， 我 们 会 在 适当 时 候 加 以 说 明 ) 。 除 此 之 
外 ， 还 有 另外 一 种 functor， 那 就 是 实现 了 map 哆 数 的 类 似 容 器 的 数据 类 型 ， 这 

种 functor 在 调用 map 的 时 候 能 够 提供 非常 有 用 的 行为 。 现 在 让 我 们 来 定义 一 个 
这 样 的 functor。 


var Maybe = function(x) { 
this. value = x; 


Maybe.of = function(x) { 
return new Maybe(x); 


Maybe.prototype.isNothing = function() { 
return (this. value === null || this. value === Undefined ) ， 


Maybe.prototype.map = function(f) { 
return this.isNothing() ? Maybe.of(null) : Maybe.of(f(this. v 
alue) ); 


} 


Maybe 看 起 来 跟 container 非常 类 似 ， 但 是 有 一 点 不 同 : Maybe 会 先 检 查 
自己 的 值 是 否 为 室 ， 然 后 才 调 用 传 进来 的 函数 。 这 样 我 们 在 使 用 map 的 时 候 就 能 
避免 恼人 的 空 值 了 (注意 这 个 实现 出 于 教学 目的 做 了 简化 ) 。 


Maybe.of("Malkovich Malkovich").map(match(/a/ig)); 
J => Mavlel ave si 内 


Maybe.of(null).map(match(/a/ig)); 
//=> Maybe(null) 


Maybe.of({name: "Boris"}).map(_.prop("age")).map(add(10)); 
//=> Maybe(null) 


Maybe.of({name: "Dinah", age: 14}).map(_.prop("age")).map(add(10 


) ) ; 
//=> Maybe(24) 


注意 看 ， 当 传 给 map 的 值 是 null 时 ， 代 码 并 没有 爆 出 错误 。 这 是 因为 每 一 次 
Maybe 要 调用 函数 的 时 候 ， 都 会 先 检 查 它 自己 的 值 是 否 为 空 。 


这 种 点 记 法 (dot notation syntax) 已 经 足够 函数 式 了 ， 但 是 正如 在 第 1 部 分 指出 
的 那样 ， 我 们 更 想 保持 一 种 pointfree 的 风格 。 碰 巧 的 是 ， map 完全 有 能 力 以 
Curry 函数 的 方式 来 "代理 "任何 functor : 


Znmnap EUncton f =>" (a >b) -=>f ra->f lb 
var map = curry(function(f, any_functor at all) { 
return any_functor_at all.map(f); 


}); 


这 样 我 们 就 可 以 像 平 常 一 样 使 用 组 合 ， 同 时 也 能 正常 使 用 map 了 ， 非 常 振奋 人 
心 。ramda 的 map 也 是 这 样 。 后 面 的 章节 中 ， 我 们 将 在 点 记 法 更 有 教育 意义 的 时 
候 使 用 点 记 法 ， 在 方便 使 用 pointfree 模式 的 时 候 就 用 pointfree。 你 注意 到 了 人 么 ? 
我 在 类 型 标签 中 偷偷 引入 了 一 个 额外 的 标记 : Functor f => 。 这 个 标记 告诉 我 
们 f 必须 是 一 个 functor。 没 什么 复杂 的 ， 但 我 觉得 有 必要 提 一 下 。 


用 例 
实际 当中 ， Maybe 最 常用 在 那些 可 能 会 无 法 成 功 返回 结果 的 函数 中 。 


// SsafeHead :: [al -> Maybe(a) 
var safeHead = function(xs) { 
return Maybe.of(xs[0]); 


je 


Var streetName = compose(map(_.prop('street')), safeHead, _.prop( 
'addresses' )); 


streetName({addresses: []}); 
// Maybe(null) 


streetName({addresses: [{street: "Shady Ln.", number: 4201}]}); 
// Maybe("Shady Ln.") 


| 
safeHead 与 一 般 的 _.head 类 似 ， 但 是 增加 了 类 型 安全 保证 。 引 入 Maybe 


会 发 生 一 件 非 常 有 意思 的 事情 ， 那 就 是 我 们 被 迫 要 与 狐 独 的 null 打交道 
了 。 safeHead 遂 数 能 够 诚实 地 预告 它 可 能 的 失败 失败 旦 没什么 可 耻 的 一 一 





然后 返回 一 个 Maybe 来 通知 我 们 相关 人 信息。 实际 上 不 仅仅 是 通知 ， 因 为 毕竟 我 们 
想 要 的 值 深 藏 在 Maybe 对 象 中 ， 而 且 只 能 通过 map 来 操作 它 。 本 质 上 ， 这 是 

一 种 由 safeHead 强制 执行 的 空 值 检查 。 有 了 这 种 检查 ， 我 们 才能 在 夜里 安然 入 
睡 ， 因 为 我 们 知道 最 不 受 人 待 见 的 null 不 会 突然 出 现 。 类 似 这 样 的 API 能 够 把 
一 个 像 纸 糊 起 来 的 、 脆 弱 的 应 用 升级 为 实 实在 在 的 、 健 壮 的 应 用 ， 这 样 的 API 保证 
了 更 加 安全 的 软件 。 


有 时 候 函 数 可 以 明确 返回 一 个 Maybe(null) 来 表明 失败 ， 例 如 : 


// Withdraw :: Number -> Account -> Maybe(Account ) 
var withdraw = curry(function(amount, account) { 
return account.balance >= amount ? 
Maybe.of({balance: account .balance - amount}) 
Maybe.of (null); 


}); 


// finishiransaction :: Account -> String 
var finishTransaction = compose(remainingBalance, updateLedger); 
// <- 假定 这 两 个 函数 已 经 在 别处 定义 好 了 


// getTwenty :: Account -> Maybe(String) 
var getTwenty = compose(map(finishTransaction), withdraw(20)); 


getTwenty({ balance: 200.00}); 
// Maybe("Your balance is $180.00") 


getTwenty({ balance: 10.00}); 
// Maybe(null) 


[| 


要 是 钱 不 够 ， withdraw 就 会 对 我 们 叶 之 以 中 然后 返回 一 个 

Maybe(null) 。 withdraw 也 显示 出 了 它 的 多 变性 ， 使 得 我 们 后 续 的 操作 只 

用 map 来 进行 。 这 个 例子 与 前 面 例子 不 同 的 地 方 在 于 ， 这 里 的 null i 
的 。 我 们 不 用 Maybe(String) ， 而 是 用 Maybe(null) 来 发 送 失 败 的 信号 ， 这 
样 程序 在 收 到 信号 后 就 能 立刻 停止 执行 。 这 一 点 很 重要 : 如 果 withdraw 失败 


了 ， map 就 会 切断 后 续 代 码 的 执行 ， 因 为 它 根本 就 不 会 运行 传递 给 它 的 函数 ， 即 
finishTransaction 。 这 正 是 预期 的 效果 : 如 果 取 款 失败 ， 我 们 并 不 想 更 新 或 者 
显示 账户 余额 。 


释放 容器 里 的 值 


人 们 经 常 忽略 的 一 个 事实 是 : 任何 事物 都 有 个 最 终 尽头 。 那 些 会 产生 作用 的 函数 ， 

不 管 它们 是 发 送 JSON 数据 ， 还 是 在 屏幕 上 打印 东西 ， 还 是 更 改 文件 系统 ， 还 是 别 
的 什么 ， 都 要 有 一 个 结束 。 但 是 我 们 无 法 通过 return 把 输出 传递 到 外 部 世界 ， 

必须 要 运行 这 样 或 那样 的 函数 才能 传递 出 去 。 关 于 这 一 点 ， 可 以 借用 禅宗 公案 的 口 
吻 来 拖 述 : “如果 一 个 程序 运行 之 后 没有 可 观察 到 的 作用 ， 那 它 到 底 运行 了 没 

有 ?”。 或 者 ， 运 行 之 后 达到 自身 的 目的 了 没有 ? 有 可 能 它 只 是 浪费 了 几 个 CPU 周 
期 然后 就 去 睡觉 了 ... 


应 用 程序 所 做 的 工作 就 是 获取 、 更 改 和 保存 数据 直到 不 再 需要 它们 ， 对 数据 做 这 些 
操作 的 函数 有 可 能 被 map 调用 ， 这 样 的 话 数据 就 可 以 不 用 离开 它 温暖 舒适 的 容 

器 。 讽 刺 的 是 ， 有 一 种 常见 的 错误 就 是 试图 以 各 种 方法 删除 Maybe 里 的 值 ， 好 像 
这 个 不 确定 的 值 是 魔鬼 ， 删 除 它 就 能 让 它 突然 显 形 ， 然 后 一 切 罪恶 都 会 得 到 宽 想 似 
的 ( 译 者 注 : 此 处 原文 应 该 是 源 自 圣经 ) 。 要 知道 ， 我 们 的 值 没有 完成 它 的 使 命 ， 
很 有 可 能 是 其 他 代码 分 支 造 成 的 。 我 们 的 代码 ， 就 像 礁 定 证 的 猫 一 样 ， 在 某 个 特定 
的 时 间 点 有 两 种 状态 ， 而 且 应 该 保持 这 种 状况 不 变 直到 最 后 一 个 函数 为 止 。 这 样 ， 
哪怕 代码 有 很 多 逻辑 性 的 分 支 ， 也 能 保证 一 种 线性 的 工作 流 。 

不 过 ， 对 容器 里 的 值 来 说 ， 还 是 有 个 逃生 口 可 以 出 去 。 也 就 是 说 ， 如 果 我 们 想 返 回 
一 个 自 定义 的 值 然后 还 能 继续 执行 后 面 的 代码 的 话 ， 是 可 以 做 到 的 ; 要 达到 这 一 目 
的 ， 可 以 借助 一 个 帮助 函数 maybe 


// maybe :: b -> (a -> b) -> Maybe a -> b 
var maybe = curry(function(x, f, m) { 
return m.isNothing() ? x : f(m.__value); 


}); 


// getTwenty :: Account -> String 


Var getTwenty = compose( 
maybe("You're broke!", finishTransaction), withdraw(20) 


)) 


getTwenty({ balance: 200.00}); 
// "Your balance is $180.00" 


getTwenty({ balance: 10.00}); 
// "You're broke!" 


这 样 就 可 以 要 么 返回 一 个 静态 值 (与 finishTransaction 返回 值 的 类 型 一 

致 ) ， 要 么 继续 愉快 地 在 没有 Maybe 的 情况 下 完成 交易 。 maybe 使 我 们 得 以 避 
免 普通 map 那 种 命令 式 的 if/else 语句 : if(x !== null) { return f(x) 
} 0 

引入 Maybe 可 能 会 在 初期 造成 一 些 不 适 。Swift 和 Scala 用 户 知 道 我 在 说 什么 ， 

因为 这 两 门 语言 的 核心 库 里 就 有 Maybe 的 概念 ， 只 不 过 伪装 成 Option(al) 里 
了 。 被 迫 在 任 何 情况 下 都 进行 空 值 检查 〈 甚 至 有 些 时 候 我 们 可 以 确定 茶 个 值 不 会 为 
空 ) ， 的 确 让 大 部 分 人 头疼 不 已 。 然 而 随 着 时 间 推 移 ， 空 值 检 查 会 成 为 第 二 本 能 ， 

说 不 定 你 还 会 感激 它 提供 的 安全 性 呢 。 不 管 怎 么 说 ， 空 值 检查 大 多 数 时 候 都 能 防止 
在 代码 逻辑 上 偷工减料 ， 让 我 们 脱离 危险 。 


编写 不 安全 的 软件 就 像 用 蜡笔 小 心 姻 由 地 画 彩 蛋 ， 画 完 之 后 把 它们 扔 到 大 街 上 一 样 
( 译 者 注 : 意思 是 彩蛋 非常 易于 寻找 。 来 源 于 复活 节 习 俗 ， 人 们 会 藏 起 一 些 彩 蛋 让 
孩子 寻找 ) ， 或 者 像 用 三 只 小 猪 警 告 过 的 材料 盖 个 养老 院 一 样 ( 译 者 注 : 来 源 于 “三 
只 小 猪 "童话 故 事 ) 。 Maybe 能 够 非常 有 效 地 帮助 我 们 增加 函数 的 安全 性 。 


有 一 点 我 作 须 要 提 及 ， 否 则 就 大 不 负责 任 了 ， 那 就 是 Maybe 的 “ 映 正 " 实 现 会 把 它 
分 为 两 种 类 型 : 一 种 是 非 空 值 ， 另 一 种 是 空 值 。 这 种 实现 允许 我 们 遵守 map 的 
parametricity 特性 ， 因 此 null 和 undefined 能 够 依然 被 map 调用 ， 


functor 里 的 值 所 需 的 那 种 普遍 性 条 件 也 能 得 到 满足 。 所 以 你 会 经 常 看 到 Some(x) 
/ None 或 者 Just(x) / Nothing 这 样 的 容器 类 型 在 做 空 值 检查 ， 而 不 是 
Maybe “。 


“ 纯 ” 错 误 处 理 


说 出 来 可 能 会 让 你 震惊 ， throw/catch 并 不 十 分 “ 纯 ”。 当 一 个 错误 抛 出 的 时 候 ， 

我 们 没有 收 到 返回 值 ， 反而 是 得 到 了 一 个 警告 | 抛 错 的 函数 吐出 一 大 堆 的 0 和 1 作 
为 盾 和 了 矛 来 攻击 我 们 ， 简 直 就 像 是 在 反击 输入 值 的 入 侵 而 进行 的 一 场 电 子 大 作战 。 

有 了 Either 这 个 新 朋友 ， 我 们 就 能 以 一 种 比 向 输入 值 宣 战 好 得 多 的 方式 来 处 理 
错误 ， 那 就 是 返回 一 条 非常 礼貌 的 消息 作为 回应 。 我 们 来 看 一 下 : 


var Left = function(x) { 
this. value = x; 


Left.of = function(x) { 
return new Left(x); 


Left.prototype.map = function(f) { 
return this; 


var Right = function(x) { 
this. value = x; 


Right.of = function(x) £ 
return new Right (x); 


Right.prototype.map = function(f) { 
return Right.of(f(this. value)); 


Left 和 Re 是 我 们 称 之 为 Either 的 抽象 类 型 的 两 个 子 类 。 我 略 去 了 创 
建 Either 父 类 的 繁 文 丝 节 ， 因 为 我 们 不 会 用 到 它 的 ， 但 你 受 坏处 。 
注意 看 ， 这 里 除了 有 两 个 类 型 ， 没 别 的 新 鲜 东 西 。 来 看 看 它们 是 怎么 运行 的 : 


Right.of("rain").map(function(str){ return "b"+str; }); 
// Right("brain") 


Left.of("rain").map(function(str){ return "b"+str; }); 
/leta(e vamme) 


Right.of({host: 'localhost', port: 80}).map(_.prop('host"')); 
// Right('localhost') 


Left.of("rolls eyes...").map(_.prop("host")); 
// Left('rolls eyes...') 


Left 就 像 是 青春 期 少年 那样 无 视 我 们 要 map 它 的 请 求 。 Right 的 作用 就 像 
是 一 个 container (也 就 是 Identity) 。 这 里 强大 的 地 方 在 于 ， Left 有 能 力 在 
它 内 部 肯 入 一 个 错误 消息 。 


假设 有 一 个 可 能 会 失败 的 函数 ， 就 拿 根 据 生日 计算 年 龄 来 说 好 了 。 的 确 ， 我 们 可 以 
用 Maybe(null) 来 表示 失败 并 把 程序 引 向 另 一 个 分 支 ， 但 是 这 并 没有 告诉 我 们 
太 多 信息 。 很 有 可 能 我 们 想 知 道 失败 的 原因 是 什么 。 用 Either 写 一 个 这 样 的 程 
序 看 看 : 


var moment = require('moment"'); 


// getAge :: Date -> User -> Either(String, Number) 
var getAge = curry(function(now, user) { 
Var birthdate = moment(user.birthdate, ‘YYYY-MM-DD'"'); 
if(!birthdate.isValid()) return Left.of("Birth date could not 
be parsed"); 
return Right.of(now.diff(birthdate, 'years')); 


je) 


getAge(moment(), {birthdate: '2005-12-12'}); 
// Right(9) 


getAge(moment(), {birthdate: 'balloons!'}); 
// Left("Birth date could not be parsed") 


这 么 一 来 ， 就 像 Maybe(null) ， 当 返回 一 个 Left 的 时 候 就 直接 让 程序 短路 。 
跟 Maybe(null) 不 同 的 是 ， 现 在 我 们 对 程序 为 何 脱离 原先 轨道 至 少 有 了 一 点 头 
绪 。 有 一 件 事 要 注意 ， 这 里 返回 的 是 Either(String，Number) ， 意 味 着 我 们 这 
个 Either 左边 的 值 是 String ， 右 边 〈 译 者 注 : 也 就 是 正确 的 值 ) 的 值 是 
Number 。 这 个 类 型 签名 不 是 很 正式 ， 因 为 我 们 并 没有 定义 一 个 真正 的 _Either 
父 类 ; 但 我 们 还 是 从 这 个 类 型 那里 了 解 到 不 少 东 西 。 它 告诉 我 们 ， 我 们 得 到 的 要 么 
是 一 条 错误 消息 ， 要 么 就 是 正确 的 年 龄 值 。 


// fortune :: Number -> String 
var fortune = compose(concat("If you survive, you will be "), a 
dd(1)); 


7/ 201ltar auUse > Either(String RS) 
Var zoltar = compose(map(console.1log), map(fortune), getAge(mome 


nt())); 


zoltar({birthdate: '2005-12-12"'}); 
.HTfHyousurviVve vowwilline TO 
// Right(undefined) 


zoltar({birthdate: 'balloons!'}); 
/eft( Bmendacercouldnotn be parsea) 


如 果 birthdate 合法 ， 这 个 程序 就 会 把 它 神秘 的 命运 打印 在 屏幕 上 让 我 们 见 

证 ; 如 果 不 合 法 ， 我 们 就 会 收 到 一 个 有 着 清 清楚 楚 的 错误 消息 的 Left ， 尽 管 这 
个 消息 是 稳 稳 当当 地 待 在 它 的 容器 里 的 。 这 种 行为 就 像 ， 虽 然 我 们 在 抛 错 ， 但 是 是 
以 一 种 平静 温和 的 方式 抛 错 ， 而 不 是 像 一 个 小 孩子 那样 ， 有 什么 不 对 劲 就 闹 脾 气 大 
喊 大 叫 。 


在 这 个 例子 中 ， 我 们 根据 birthdate 的 合法 性 来 控制 代码 的 逻辑 分 支 ， RN 
让 代码 进行 从 右 到 左 的 直线 运动 ， 而 不 用 扑 过 各 种 条 件 语句 的 大 括号 。 通 常 ， 我 们 
不 会 把 console.1og 放 到 zoltar 函数 里 ， 而 是 在 调用 zoltar 的 时 候 才 
map 它 ， 不 过 本 例 中 ， 让 你 看 看 Right 分支 如 何 与 Left 不 同 也 是 很 有 帮助 
的 。 我 们 在 Right 分 支 的 类 型 签名 中 使 用 表示 一 个 应 该 忽略 的 值 (在 有 些 
浏览 器 中 ， 你 必须 要 console.1og， ER 才能 把 console.log 当 
作 一 等 公民 使 用 ) 。 


我 想 借 此 机 会 指出 一 件 你 可 能 没 注意 到 的 事 : 这 个 例子 中 ， 尽 管 fortune 使 用 了 
Either ， 它 对 每 一 个 functor 到 底 要 干什么 却 是 毫 不 知情 的 。 前 面 例 子 中 的 
finishTransaction 也 是 一 样 。 通 俗 点 来 讲 ， 一 个 函数 在 调用 的 时 候 ， 如 果 被 
map 包 衰 了， 那么 它 就 会 从 一 个 非 functor 函数 转换 为 一 个 functor 函数 。 我 们 把 

这 个 过 程 叫做 / 折 。 一 般 情况 下 ， 普 通 函 数 更 适合 操作 普通 的 数据 类 型 而 不 是 容器 类 

型 ， 在 必要 的 时 候 再 通过 /jft 变 为 合适 的 容器 去 操作 容器 类 型 。 这 样 做 的 好 处 是 能 

得 到 更 简单 、 重 用 性 更 高 的 函数 ， 它 们 能 够 随 需 求 而 变 ， 兼 容 任意 functor 。 


Either 并 不 仅仅 只 对 合法 性 检查 这 种 一 般 性 的 错误 作用 非凡 ， 对 一 些 更 严重 

的 、 能 够 中 断 程序 执行 的 错误 比如 文件 丢失 或 者 socket 连接 断 开 等 ， Either 同 
样 效 果 显 著 。 你 可 以 试 试 把 前 面 例子 中 的 Maybe 替换 为 Either ， 看 怎么 得 到 
更 好 的 反馈 。 


此 刻 我 忍 不 住 在 想 ， 我 仅仅 是 把 Either 当 作 一 个 错误 消息 的 容器 介绍 给 你 ! 这 
样 的 介绍 有 失 偏 颇 ， 它 的 能 耐 远 不 止 于 此 。 比 如 ， 它 表示 了 逻辑 或 (也 就 是 

|| ) 。 再 比如 ， 它 体现 了 范畴 学 里 coproduct 的 概念 ， 当 然 本 书 不 会 涉及 这 方面 
的 知识 ， 但 值得 你 去 深入 了 解 ， 因 为 这 个 概念 有 很 多 特性 值得 利用 。 还 比如 ， 它 是 
标准 的 sum type (或 者 叫 不 交 并 集 ，disjoint union of sets) ， 因 为 它 含有 的 所 有 可 
能 的 值 的 总 数 就 是 它 包 含 的 那 两 种 类 型 的 总 数 (我 知道 这 么 说 你 听 不 懂 ， 没 关系 ， 
这 里 有 一 篇 非常 棒 的 文章 讲述 这 个 问题 ) 。 Either 能 做 的 事情 多 着 呢 ， 但 是 作 
为 一 个 functor， 我 们 就 用 它 处 理 错误 。 
就 像 Maybe 可 以 有 个 maybe 一 样 ， Either 也 可 以 有 一 个 either 。 两 者 


的 用 法 类 似 ， 但 either 接受 两 个 函数 〈 而 不 是 一 个 ) 和 一 个 静态 值 为 参数 。 这 
两 个 函数 的 返回 值 类 型 一 致 : 


// either :: (a -> C) -> (b -> c) -> Either a b -> C 
var either = curry(function(f, g, e) { 
switch(e.constructor) { 
case Left: return f(e. value); 
case Right: return g(e. value); 


} 
] 


// zoltar :: User -> _ 
var zoltar = compose(console,1og，either(1Id，fortune)，getAge(mo 
ment( ))); 


zoltar({birthdate: '2005-12-12"'}); 
// "If you survive, you will be 10" 
//+ undefined 


zoltar({birthdate: 'balloons!'}); 
// "Birth date could not be parsed" 
/7 undefined 


终于 用 了 一 回 那个 神秘 的 id 骂 数 1! 其 实 它 就 是 简单 地 复制 了 Left 里 的 错误 
消息 ， 然 后 把 这 个 值 传 给 console,.1og 而 已 。 通 过 强制 在 getAge 内 部 进行 错 
误 处 理 ， 我 们 的 算命 程序 更 加 健壮 了 。 结 果 就 是 ， 要 么 告诉 用 户 一 个 残酷 的 事实 并 
像 算 命 师 那 样 跟 他 击 掌 ， 要 么 就 继续 运行 程序 。 好 了 ， 现 在 我 们 已 经 准备 好 去 学 习 
一 个 完全 不 同类 型 的 functor 了 。 


王 老 先 生 有 作用 ... 


( 译 者 注 : 原 标 题 是 “Old McDonald had Effects...”， 源 于 美国 儿歌 “Old McDonald 
Had a Farm”。 ) 





在 关于 纯 函 数 的 的 那 一 章 〈 即 第 3 章 ) 里 ， 有 一 个 很 奇怪 的 例子 。 这 个 例子 中 的 函 
数 会 产生 副作用 ， 但 是 我 们 通过 把 它 包 庄 在 另 一 个 函数 里 的 方式 把 它 变 得 看 起 来 像 


一 个 纯 函 数 。 这 里 还 有 一 个 类 似 的 例子 : 


// getFromStorage :: String -> ( -> String) 
var getFromStorage = function(key) { 
return function() { 
return localStorage[key]; 


要 是 我 们 没 把 getFromStorage 包 在 另 一 个 函数 里 ， 它 的 输出 值 就 是 不 定 的 ， 会 
随 外 部 环境 变化 而 变化 。 有 了 这 个 结实 的 包 衰 函数 (wrapper) ， 同 一 个 输入 就 总 
能 返回 同一 个 输出 : 一 个 从 localStorage 里 取出 某 个 特定 的 元 素 的 函数 。 就 这 
样 (也 许 再 高 唱 几 名 赞美 圣母 的 赞歌 ) 我 们 洗涤 了 心灵 ， 一 切 都 得 到 了 宽恕 。 


然而 ， 这 并 没有 多 大 的 用 处 ， 你 说 是 不 是 。 就 像 是 你 收藏 的 全 新 未 拆 封 的 玩偶 ， 不 
能 拿 出 来 玩 有 什么 意思 。 所 以 要 是 能 有 办 法 进 到 这 个 容器 里 面 ， 拿 到 它 藏 在 那儿 的 
东西 就 好 了 ... 办 法 是 有 的 ， 请 看 I0 


var IO = function(f) { 
this. value = ff; 


IO0.of = function(x) { 
return new IO(function() { 
return x; 


}); 


IO0.prototype,map = function(f) { 
return new I0(_.compose(f, this. value)); 


I0 跟 之 前 的 functor 不 同 的 地 方 在 于 ， 它 的 value 总 是 一 个 函数 。 不 过 我 们 
不 把 它 当 作 一 个 函数 一 一 实现 的 细节 我 们 最 好 先 不 管 。 这 里 发 生 的 事情 跟 我 们 在 
getFromStorage 那里 看 到 的 一 模 一 样 : I0 把 非 纯 执行 动作 (impure action ) 
捕获 到 包 计 函数 里 ， 目 的 是 延迟 执行 这 个 非 纯 动作 。 就 这 一 点 而 言 ， 我 们 认为 

I0 包含 的 是 被 包 计 的 执行 动作 的 返回 值 ， 而 不 是 包 庄 函数 本 身 。 这 在 of 函数 
里 很 明显 : IO(function(){ return x }) 仅仅 是 为 了 延迟 执行 ， 其 实 我 们 得 到 
的 是 I0(x) 。 


来 用 用 看 : 


// io window :: IO Window 
var io window = new IO(Cfunction(){ return window; }); 


io_ window.map(function(win){ return win.innerwidth }); 
// I0(1430) 


io window.map(_.prop('location')).map(_.prop('href')).map(split( 
'/')); 
/LO het localhose S00 vlog oss 


A Seg >OnDoOM 
var $ = function(selector) { 

return new IO(function(){ return document.querySelectorAll(sel 
ector); }); 


} 


$('#myDiv').map(head).map(function(div){ return div.innerHTML; } 
); 


// I0O('I am Some inner html') 


这 里 ， io_window 是 一 个 真正 的 I0 ， 我 们 可 以 直接 对 它 使 用 map 。 至 于 
$$ ， 则 是 一 个 函数 ， 调 用 后 会 返回 一 个 I0 。 我 把 这 里 的 返回 值 都 写成 了 概念 性 
的 ， 这 样 就 更 加 直观 ; 不 过 实际 的 返回 值 是 { ”value: [Function] } 。 当 调 
用 I0 的 map 的 时 候 ， 我 们 把 传 进来 的 函数 放 在 了 map 区 数 里 的 组 合 的 最 末 
端 (也 就 是 最 左边 ) 8 了 新 的 I0 的 新 ”value ， 并 继 
续 下 去 。 传 给 map 的 函数 并 没有 运行 ， 我 们 只 是 把 它们 压 到 一 个 “运行 栈 "的 最 末 
端 而 已 ， 一 个 到 Rs 人 函数， 就 像 小 心 摆 放 的 多 米 诺 骨 上 牌 一 样 ， 让 人 不 敢 
轻易 推倒 。 这 种 情形 很 容易 叫 人 联想 起 “四人帮 ”( 译 者 注 : 《设计 模式 》 一 书 作 
者 ) 提出 的 命令 模式 (command pattern ) 或 者 队列 (queue) 。 


花 点 时 间 找 回 你 关于 functor 的 直觉 吧 。 把 实现 细节 放 在 一 边 不 管 ， 你 应 该 就 能 自 
然而 然 地 对 各 种 各 样 的 容器 使 用 map 了 ， 不 管 它 是 多 么 奇特 怪异 。 这 种 伪 超 自然 
的 力量 要 归功 于 functor 的 定律 ， 我 们 将 在 本 章 末 尾 对 此 作 一 番 探 索 。 无 论 如 何 ， 
我 们 终于 可 以 在 不 牺牲 代码 纯粹 性 的 情况 下 ， 随 意 使 用 这 些 不 纯 的 值 了 。 


好 了 ， 我 们 已 经 把 野兽 关 进 了 笼子 。 但 是 ， 在 某 一 时 刻 还 是 要 把 它 放出 来 。 ee 

I0 调用 map 已 经 积累 了 大 多 不 纯 的 操作 ， 最 后 再 运行 它 无 疑 会 打破 平静 。 
题 是 在 哪里 ， 什 么 时 候 打 开 笼 子 的 开关 ? 而且 有 没有 可 能 我 们 只 运行 I0 ee 
不 纯 的 操作 弄 及 双手? 答案 是 可 以 的 ， 只 要 把 责任 推 到 调用 者 身上 就 行 了 。 我 们 的 
纯 人 代码， 尽管 阴险 狂放 诡计 多 端 ， 但 是 却 始终 保持 一 副 清白 无 章 的 模样 ， 反 而 是 实 
际 运行 IO 并 产生 了 作用 的 调用 者 ， 背 了 黑 锅 。 来 看 一 个 具体 的 例子 。 


////// 纯 代 码 库 : lib/params.js /////// 


AIGOEESIEINnOG 
var url = new IO(Cfunction() { return window.location.href; }); 


// toPairs = String -> [[String]] 
Var toPairs = compose(map(split('="')), split('&')); 


/nananse ee Stemnon >aSemol 
var params = compose(topPairs, last, split('?')); 


// findParam :: String -> IO Maybe [String] 
var findParam = function(key) { 

return map(compose(Maybe.of, filter(compose(eq(key), head)), p 
arams), url); 


}; 
////// 非 纯 调用 代码 : main.js ///////7 


// 调用 value() 来 运行 它 ! 
findParam("searchTerm"). value()， 
// Maybe(['searchTerm', 'wafflehouse']) 


lib/params.js 把 _ url 包 庄 在 一 个 I0 里 ， 然 后 把 这 头 野 兽 传 给 了 调用 者 ; 

手 保 持 的 非常 干净 。 你 可 能 也 注意 到 了 ， 我 们 把 容器 也 “ 压 栈 "了 ， 要 知道 台 Re 1 
IO(Maybe([x])) 没有 任何 不 合理 的 地 方 。 我 们 这 个 “ 栈 " 有 三 层 

functor ( Array 是 最 有 资格 成 为 mappable 的 容器 类 型 ) ， 令 人 印象 深刻 。 


有 件 事 困扰 我 很 久 了 ， 现 在 我 必须 得 说 出 来 : I0 的 ”value 并 不 是 它 包含 的 
值 ， 也 不 是 像 两 个 下 划 线 暗示 那样 是 一 个 私有 属性 。 value 是 手榴弹 的 弹 栓 ， 
只 应 该 被 调用 者 以 最 公开 的 方式 拉动 。 为 了 提醒 用 户 它 的 变化 无 常 ， 我 们 把 它 重 命 
名 为 unsafePerformIO 看 看 。 


var IO = function(f) { 
this.unsafeperformIO0O = f; 


} 


I0.prototype.map = function(f) { 
return new IO(_ .compose(f，this,unsafePerformIO) ) ， 


} 


看 ， 这 就 好 多 了 。 现 在 调用 的 代码 就 变 成 了 
findParam("searchTerm").unsafePerformI0() ， 对 应 用 程序 的 用 户 (以 及 本 
书 读者 ) 来 说 ， 这 简直 就 直 白 得 不 能 再 直 白 了 。 


I0 会 成 为 一 个 忠诚 的 伴侣 ， 帮 助 我 们 驯化 那些 狂 野 的 非 纯 操作 。 下 一 节 我 们 将 
学 习 一 种 跟 I0 在 精神 上 相似 ， 但 是 用 法 上 又 千差万别 的 类 型 。 


异步 任务 


回调 (callback) 是 通 往 地 狱 的 狭 窜 的 螺旋 阶梯 。 它 们 是 埃 舍 尔 ( 译 者 注 : 荷兰 版 

画 艺 术 家 ) 设计 的 控制 流 。 看 到 一 个 个 诺 套 的 回调 挤 在 大 小 括号 搭 成 的 架子 上 ， 让 

人 不 由 自主 地 联想 到 地 衬里 的 灵 薄 狱 (还 能 再 低 点 么 ! ) ( 译 者 注 : 灵 薄 狱 即 

limbo， 基 督 教 中 地 狱 边缘 之 意 ) 。 光 是 想到 这 样 的 回调 就 让 我 费 闭 恐怖 证 发 作 了 。 
过 别 担心 ， 处理 异步 代码 ， 我 们 有 一 种 更 好 的 方式 ， 它 的 名 字 以 “F" 开 头 。 


这 种 方式 的 内 部 机 制 过 于 复杂 ， 复 杂 得 哪怕 我 唾沫 横 飞 也 很 难 讲 清 楚 。 所 以 我 们 就 
直接 用 Quildreen Motta 的 Folktale 里 的 Data.Task (之 前 是 
Data.Future ) 。 来 见证 一 些 例子 吧 


第 8 章 : 特 百 囊 


// Node readfile example: 


vammfse .=requnre( fs 


// readFile :: String -> Task(Error, JSON) 
var readFile = function(filename) { 
return new Task(function(reject, result) { 
fs.readFile(filename, 'utf-8', function(err, data) { 
err ? reject(err) : result(data); 
}); 
}); 
}; 


readFile("metamorphosis").map(split('\n')).map(head); 

// Task("One morning, as Gregor Samsa was waking up from anxious 
dreams, he discovered that 

// in bed he had been changed into a monstrous verminous bug.") 


// jQuery getJSON example: 


// getJSON :: String -> {} -> Task(Error, JSON) 
var getJSON = curry(function(url, params) { 
return new Task(function(reject, result) { 
$.getJSON(url, params, result).fail(reject); 
}); 
}); 


getJSON('/video', {id: 10}).map(_.prop('title')); 
// Task("Family Matters ep 15") 


// 传 入 普通 的 实际 值 也 没 问 题 
Task.of(3).map(function(three){ return three + 1 }); 
// Task(4) 
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例子 中 的 reject 和 result 函数 分 别 是 失败 和 成 功 的 回调 。 正 如 你 看 到 的 ， 
我 们 只 是 简单 地 调用 Task 的 map 函数 ， 就 能 操作 将 来 的 值 ， 好 像 这 个 值 就 在 
那儿 似 的 。 到 现在 map 对 你 来 说 应 该 不 稀奇 了 。 


如 果 熟 悉 promise 的 话 ， 你 该 能 认 出 来 map 就 是 then ， Task 就 是 一 个 
promise。 如 果 不 熟 悉 你 也 不 必 气 蚀 ， 反 正 我 们 也 不 会 用 它 ， 因 为 它 并 不 纯 ; 但 刚 
才 的 类 比 还 是 成 立 的 。 


与 I0 类 似 ，Task 在 我 们 给 它 绿灯 之 前 是 不 会 运行 的 。 事 实 上 ， 正 因为 它 要 等 
我 们 的 命令 ， I0 实际 就 被 纳入 到 了 Task 名 下 ， 代 表 所 有 的 异步 操作 
readFile 和 getJSON 并 不 需要 一 个 额外 的 IO 容器 来 变 纯 。 更 重要 的 
是 ， 当 我 们 调用 它 的 map 的 时 候 ，Task 工作 的 方式 与 I0 几 无 差别 : 都 是 把 
对 未 来 的 操作 的 指示 放 在 一 个 时 间 肌 过 里 ， 就 像 家 务 列表 (chore chart) 那样 一 一 
昊 是 一 种 精密 的 拖延 术 。 





我 们 必须 调用 fork 方法 才能 运行 Task ， 这 种 机 制 与 unsafePerformIO 类 
似 。 但 也 有 不 同 ， 不 同 之 处 就 像 fork 这 个 名 称 表 明 的 那样 ， 它 会 fork 一 个 子 进 
程 运 行 它 接收 到 的 参数 代码 ， 其 他 部 分 的 执行 不 受 影响 ， 主 线程 也 不 会 阻塞 。 当 然 
这 种 效果 也 可 以 用 其 他 一 些 技 术 比 如 线程 实现 ， 但 这 里 的 这 种 方法 工作 起 来 就 像 是 
一 个 普通 的 异步 调用 ， 而 且 event loop 能 够 不 受 影 响 地 继续 运转 。 我 们 来 看 一 下 
fork 


BuUiaeEapplacatron 


// blogTemplate :: String 


// blogPage :: Posts -> HTML 
var blogPage = Handlebars.compile(blogTemplate); 


// renderPage :: Posts -> HTML 
Var renderPage = compose(blogPage, sortBy('date')); 


// blog :: Params -> Task(Error, HTML) 
Var blog = compose(map(renderPage), getJSON('/posts')); 


// Impure calling code 

三 三 三 =========== 

blog({}).fork( 
function(error){ $("#error").htmil(error.message); }, 
function(page){ $("#main").html(page); } 

); 








$('#spinner').show(); 


调用 fork 之 后 ， Task 就 赶紧 跑 去 找 一 些 文章 ， 泻 染 到 页 面 上 。 与 此 同时 ， 我 
们 在 页 面 上 展示 一 个 spinner， 因 为 fork 不 会 等 收 到 响应 了 才 执 行 它 后 面 的 代 
码 。 最 后 ， 我 们 要 么 把 文章 展示 在 页 面 上 ， 要 么 就 显示 一 个 出 错 信息 ， 视 
getJSON 请 求 是 否 成 功 而 定 。 


花 点 时 间 思 考 下 这 里 的 控制 流 为 何 是 线性 的 。 我 们 只 需要 从 下 读 到 上 ， 从 右 读 到 左 
就 能 理解 代码 ， 即 便 这 段 程序 实际 上 会 在 执行 过 程 中 到 处 跳 来 跳 去 。 这 种 方式 使 得 
阅读 和 理解 应 用 程序 的 代码 比 那 种 要 在 各 种 回调 和 错误 处 理 代码 块 之 间 跳 路 的 方式 
容易 得 多 。 


天 哪 ， 你 看 到 了 人 么 ， Task 居然 也 包含 了 Either ! 没 办 法 ， 为 了 能 处 理 将 来 可 
能 出 现 的 错误 ， Re 做 ， = 1 流 在 异步 的 世界 里 不 适用 。 这 自 
然 是 好 事 一 桩 ， 因 为 它 天 然 地 提供 了 充分 的 “ 纯 ” 错 误 处 理 。 


就 算是 有 了 Task ， IO0 和 Either 这 两 个 functor 也 照样 能 派 上 用 2 。 待 我 蔡 
个 简单 例子 向 你 说 明 一 种 更 复杂 、 更 假想 的 情况 ， 虽 然 如 此 ， 这 个 例子 还 是 能 够 说 
明 我 的 目的 。 


// Postgres.connect :: Url -> IO DbConnection 
// runQuery :: DbConnection -> ResultSet 
// readFile :: String -> Task Error String 


// Pure application 
= 


/doUr Conft > Emmther Enron 
var dbUrl = function(c) { 
return (c.uname && c.pass && c.host && c.db) 
? Right.of("db:pg://"+c.unNname+":"+Cc.pass+"@"+c.host+"5432/"+ 
c.db) 
Left.of(Error("Invalid config!")); 


// connectDb :: Config -> Either Error (IO DbConnection) 
var connectDb = compose(map(Postgres.connect), dbUr1); 


// getConfig :: Filename -> Task Error (Either Error (IO DbConn 
ection)) 

var getConfig = compose(map(compose(connectDB, JSON.parse)), rea 
dFile); 


// Impure calling code 


getCconfig("db.json").fork( 
logErr("couldn't read file"), either(console.log, map(runQuery 


)) 
) 


这 个 例子 中 ， 我 们 在 readFile 成 功 的 那个 代码 分 支 里 利用 了 Either 和 
I0 。 Task 处 理 异 步 读 取 文 件 这 一 操作 当中 的 不 “ 纯 " 性 ， 但 是 验证 config 
法 性 以 及 连接 数据 库 则 分 别 使 用 了 Either 和 IO 。 所 以 你 看 ， 我 们 依然 在 同 
地 跟 所 有 事物 打交道 。 


例子 我 还 可 以 再 举 一 些 ， 但 是 就 到 此 为 止 吧 。 这 些 概念 就 像 map 一 样 简单 。 


实际 当中 ， 你 很 有 可 能 在 一 个 工作 流 中 跑 好 几 个 异步 任务 ， 但 我 们 还 
容器 的 api 来 应 对 这 种 情况 。 不 必 担 心 ， 我 们 很 快 就 会 去 学 习 monad 之 类 的 概 
念 。 不 过 ， 在 那 之 前 ， 我 们 得 先 检查 下 所 有 这 些 背 后 的 数学 知识 。 


| 


点 理论 


“没有 完整 学 习 


前 面 提 到 ，functor 的 概念 来 自 于 范畴 学 ， 并 满足 一 些 定律 。 我 们 先 来 探索 这 些 实用 


的 定律 。 


// 


/cenmtEey 
map(id) === id; 


// composition 


compose(map(f), map(g)) === map(compose(f, 9g)); 


同一 律 很 简单 ， 但 是 也 很 重要 。 因 为 这 些 定律 都 是 可 运行 的 代码 ， 所 以 我 们 完全 


以 在 我 们 自己 的 functor 上 试验 它们 ， 验 证 它们 是 否 成 立 。 


Var idLaw1 = map(id); 
Var IdLaw2 = id; 


IdLaw1(Container .of(2) )， 


//=> Container(2) 


idLaw2(Container .of(2)); 
//=> Container(2) 


看 到 没 ， 它 们 是 相等 的 。 接 下 来 看 一 看 组 合 。 


Var compLaw1 = compose(map(concat(" world")), map(concat(" cruel" 


) )); 


Var compLaw2 = map(compose(concat(" world"), concat(" cruel"))); 


compLaw1i(Container.of("Goodbye")); 
//=> Container('Goodbye cruel world') 


compLaw2(Container.of("Goodbye")); 
//=> Container('Goodbye cruel world') 


< 


在 范畴 学 中 ，functor 接受 一 个 范畴 的 对 象 和 态 射 《morphism) ， 然 后 把 它们 映射 
(map) 到 另 一 个 范畴 里 去 。 根 据 定 义 ， 这 个 新 范畴 一 定 会 有 一 个 单位 元 
(identity) ， 也 一 定 能 够 组 合 态 射 ; 我 们 无 须 验 证 这 一 点 ， 前 面 提 到 的 定律 保证 这 

些 东 西 会 在 映射 后 得 到 保留 。 


可 能 我 们 关于 范畴 的 定义 还 是 有 点 模糊 。 你 可 以 把 范畴 想象 成 一 个 有 着 多 个 对 象 的 
网 络 ， 对 象 之 间 靠 态 射 连接 。 那 么 functor 可 以 把 一 个 范畴 映射 到 另外 一 个 ， 而 且 
不 会 破坏 原 有 的 网 络 。 如 果 一 个 对 象 a 属于 源 范畴 C ， 那 么 通过 functor F 
把 a 映射 到 目标 范畴 D 上 之 后 ， 就 可 以 使 用 F a 来 指 代 a 对 象 (把 这 些 
字母 拼 起 来 是 什么 了 ! ) 。 可 能 看 图 会 更 容易 理解 : 


9 » © 
XY WX \ 
& }y SS 天 s 
入 多 加 网 
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比如 ， Maybe 就 把 类 型 和 函数 的 范畴 映射 到 这 样 一 个 范畴 : 即 每 个 对 象 都 有 可 能 
不 存在 ， 每 个 态 射 都 有 空 值 检查 的 范畴 。 这 个 结果 在 代码 中 的 实现 方式 是 用 map 
包 庄 每 一 个 函数 ， 用 functor 包 庄 每 一 个 类 型 。 这 样 就 能 保证 每 个 普通 的 类 型 和 函 
数 都 能 在 新 环境 下 继续 使 用 组 合 。 从 技术 上 讲 ， 代 码 中 的 functor 实际 上 是 把 范畴 


映射 到 了 一 个 包含 类 型 和 六 数 的 子 范畴 (sub category) 上 ， 使 得 这 些 functor 成 为 
了 一 种 新 的 特殊 的 endofunctor。 但 出 于 本 书 的 目的 ， 我 们 认为 它 就 是 一 个 不 同 的 


可 以 用 一 张 图 来 表示 这 种 态 射 及 其 对 象 的 映射 : 
a t b 


F.of F.of 
map (f) 





Ev 





五 0 


这 张 图 除了 能 表示 态 射 借助 functor F 完成 从 一 个 范畴 到 另 一 个 范畴 的 映射 之 

外 ， 我 们 发 现 它 还 符合 交换 律 ， 也 就 是 说 ， 顺 着 箭头 的 方向 往 前 ， 形 成 的 每 一 个 路 
径 都 指向 同一 个 结果 。 不 同 的 路 径 意味 着 不 同 的 行为 ， 但 最 终 都 会 得 到 同一 个 数据 
类 型 。 这 种 形式 化 给 了 我 们 原则 性 的 方式 去 思考 代码 一 一 无 须 分 析 和 评估 每 一 个 单 
独 的 场景 ， 只 管 可 以 大 胆 地 应 用 公式 即 可 。 来 看 一 个 具体 的 例子 。 


// topRoute :: String -> Maybe(String ) 
Var topRoute = compose(Maybe.of, reverse); 


// bottomRoute :: String -> Maybe(String) 
Var bottomRoute = compose(map(reverse), Maybe .of); 
topRoute( "hi"); 


// Maybe("ih") 


bottomRoute("hi"); 
// Maybe("ih") 


或 者 看 图 : 


reverse “Lh Pz 


“nL” 
Maybe.of Maybe.of 


map (reverse) 
Maybe (“hr”) wi elimi Maybe (“hn”) 


根据 所 有 functor 都 有 的 特性 ， 我 们 可 以 立即 理解 代码 ， 重 构 代 码 。 


functor 也 能 襄 套 使 用 : 


var nested = Task.of([Right.of("pillows"), Left.of("no Sleep for 
you" )]); 


map(map(map(toUpperCase)), nested); 
// Task([Right("PILLOWS"), Left("no Sleep for you")|]) 


nested 是 一 个 将 来 的 数组 ， 数 组 的 元 素 有 可 能 是 程序 抛 出 的 错误 。 我 们 使 用 
map 剥 开 每 一 层 的 上 峙 套 ， 然 后 对 数组 的 元 素 调 用 传递 进去 的 函数 。 可 以 看 到 ， 这 
中 间 没 有 回调 、 if/else 语句 和 for 循环 ， 只 有 一 个 明确 的 上 下 文 。 的 确 ， 我 
们 必须 要 map(map(map(f))) 才能 最 终 运行 泡 数 。 不 想 这 么 做 的 话 ， 可 以 组 合 
functor。 是 的 ， 你 没 听 错 : 


var Compose = function(f gd _x){ 
this.getCompose = f_g x; 


Compose.prototype.map = function(f){ 
return new Compose(map(map(f), this.getCompose)); 


var tmd = Task.of(Maybe.of("Rock over London")) 


Var ctmd = new Compose(tmd); 


map(concat(", rock on, Chicago"), ctmd); 
// Compose(Task(Maybe("Rock over London, rock on, Chicago"))) 


ctmd.getCompose; 
// Task(Maybe("Rock over London, rock on, Chicago")) 


看 ， 只 有 一 个 map 。functor 组 合 是 符合 结合 律 的 ， 而 且 之 前 我 们 定义 的 
Container 实际 上 是 一 个 叫 Identity 的 functor。identity 和 可 结合 的 组 合 也 

一 个 范畴 ， 这 个 特殊 的 范畴 的 对 象 是 其 他 范畴 ， 态 射 是 functor。 这 实在 太 伤 
me ， 所 以 我 们 不 会 深入 这 个 问题 ， 但 是 赞叹 一 下 这 种 模式 的 结构 性 含义 ， 或 者 
它 的 简单 的 抽象 之 美 也 是 好 的 。 


泛 结 


Ed 
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我 们 已 经 认识 了 几 个 不 同 的 functor， 但 它们 oy 。 有 一 些 值得 注意 
的 可 和 迭代 数据 类 型 〈iterable data structure) 我 们 没有 介绍 ， 像 tree、list、map 和 
pair 等 ， 以 及 所 有 你 能 说 出 来 的 。eventstream 和 observable 也 都 是 functor。 其 
他 的 functor 可 能 就 是 拿 来 做 封装 或 者 仅仅 是 模拟 类 型 。 我 们 身边 到 处 都 有 functor 
的 身影 ， 本 书 也 将 会 大 量 使 用 它们 。 


用 多 个 functor 参数 调用 一 个 函数 怎么 样 呢 ?处理 一 个 由 不 纯 的 或 者 异步 的 操作 组 
成 的 有 序 序列 怎么 样 呢 ? 要 应 对 这 个 什么 都 装 在 盒子 里 的 世界 ， 目 前 我 们 工具 箱 里 
的 工具 还 不 全 。 下 一 草 ， 我 们 将 直 奔 monad 而 去 。 


第 9 章 : Monad 


练习 


require('../../support"'); 
var Task = require('data.task'); 


var _ = require('ramda'); 
ZY GR | 
[二 三 三 三 三 三 三 三 三 三 


// 使 用 _,add(x,y) 和 _ ,map(f,x) 创建 一 个 能 让 functor 里 的 值 增加 的 函数 


var ex1 = undefined 


WA [是 三 三 三 三 三 三 三 三 三 三 

// 使 用 _.head 获取 列表 的 第 一 个 元 素 

Var Xs Tdemnmtaty sof(Gldor em ray 9 me fa So oe 
'do']); 


var ex2 = undefined 


27 SRG 

// ========== 

// 使 用 safeProp 和 _.head 找到 User 的 名 字 的 首 字 母 

var safeProp = _.curry(function (x, 0) { return Maybe.of(of[x]); 
}); 


var user = { id: 2, name: "Albert" }; 
var ex3 = undefined 
// 练习 4 


三 三 三 三 三 三 三 三 
// 使 用 Maybe 重 写 ex4， 不 要 有 if 语句 
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var ex4 = function (n) { 
If (n) { return parseInt(n); } 
}; 


var ex4 = undefined 


= 


// 号 一 个 函数 ， 先 getPost 获取 一 篇 文章 ， 然 后 toUpperCase 让 这 片 文章 标题 
变 为 大 写 


EdetPost -Tne =>"Future({id Int tritle: stringy) 
var getPost = function (i) { 
return new Task(function(rej, res) { 
setTimeout(function(){ 
res({id: i, title: 'Love them futures'}) 
p300) 
}); 


var ex5 = undefined 


2 

pf 

// 写 一 个 函数 ， 使 用 checkActive() 和 showWelcome() 分 别 允 许 访问 或 返回 
错误 

Var ShowwelLcome = _.compose(_.add( "Welcome "), _.prop('name')) 


Var checkActive = function(user) { 
return user.active ? Right.of(user) : Left.of('Your account is 
not active') 


} 


var ex6 = undefined 


// 练习 7 

// ========== 

// 号 一 个 验证 函数 ， 检 查 参 数 是 否 length > 3。 如 果 是 就 返回 Right(x)， 否则 
就 返回 

eteeMoumneed ss 


var ex7 = function(x) { 
return undefined // <--- write me. (don't be pointfree) 


// 练习 8 


// 使 用 练习 7 的 ex7 和 Either 构造 一 个 functor， 如 果 一 个 user 合法 就 
保存 它 ， 否 则 
// 返回 错误 消息 。 别 忘 7 了 either 的 两 个 参数 必须 返回 同一 类 型 的 数据 。 


var save = function(x)t{ 
return new IO(function(){ 
console.1log("SAVED USER!"); 
return x + '-saved'; 


J 


var ex8 = undefined 


S| 
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Monad 


pointed functor 


在 继续 后 面 的 内 容 之 前 ， 我 得 向 你 坦白 一 件 事 : 关于 我 们 先前 创建 的 容器 类 型 上 的 
of 方法， 我 并 没有 说 出 它 的 全 部 实情 。 扣 实情 况 是 ， of 方法 不 是 用 来 避免 使 
用 new 关键 字 的 ， 而 是 用 来 把 值 放 到 默认 最 小 化 上 下 文 (default minimal 
context) 中 的 。 是 的 ， of 没有 丨 正 地 取代 构造 器 
pointed 的 重要 接口 的 一 部 分 





pointed functor 是 实现 了 of 方法 的 functor。 


这 里 的 关键 是 把 任意 值 丢 到 容器 里 然后 开始 到 处 使 用 map 的 能 力 。 


I0.of("tetris").map(concat(" master")); 
/lol tetse master) 


Maybe.of(1336).map(add(1)); 
// Maybe(1337) 


Task.of([{id: 2}, {id: 3}]).map(_.prop('id"')); 
// Task([2,3]) 


Either.of("The past, present and future walk into a bar...").map 
( 

concat("it was tense.") 
); 


WRagnee nenpastee preseneand he wa nto a na eas 


se.") 


如 果 你 还 记得 ，I0 和 Task 的 构造 器 接受 一 个 函数 作为 参数 ， 而 Maybe 和 

Either 的 构造 器 可 以 接受 任意 值 。 实 现 这 种 接口 的 动机 是 ， 我 们 希望 能 有 一 种 
通用 、 一 致 的 方式 往 functor 里 卉 值 ， 而 且 中 间 不 会 涉及 到 复杂 性 ， 也 不 会 涉及 到 
对 构造 器 的 特定 要 求 。" 默 认 最 小 化 上 下 文 "这 个 术语 可 能 不 够 精确 ， 但 是 却 很 好 地 
传达 了 这 种 理念 : 我 们 希望 容器 类 型 里 的 任意 值 都 能 发 生 1ift ， 然 后 像 所 有 的 
functor 那样 再 map 出 去 。 


有 件 很 重要 的 事 我 必须 得 在 这 里 纠正 ， 那 就 是 ， Left.of 没有 任何 道理 可 言 ， 

括 它 的 双关 语 也 是 。 ee 都 要 有 一 种 把 值 放 进去 的 方式 ， 对 Either 了 

说 ， 它 的 方式 就 是 new Right(x) 。 我 们 为 Right 定义 of 的 原因 是 ， 如 果 

Re 器 可 以 map ， 那 它 就 应 该 map 。 看 上 面 的 例子 ， 你 应 该 会 对 of 
常 的 工作 模式 有 一 个 直观 的 印象 ， 而 Left 破坏 了 这 种 模式 。 


你 可 能 已 经 听 说 过 pure 、point 、unit 和 return 之 类 的 函数 了 ， 它 们 
都 是 of 这 个 史上 最 神秘 函数 的 不 同名 称 ( 译 者 注 : 此 处 原文 是 “international 
function of mystery”， 源 自 和 恶搞 《007》 的 电影 Austin Powers: International Man 
of Mystery， 中 译名 《王牌 大 贱 谍 》) 。 of 将 在 我 们 开始 使 用 monad 的 时 候 显 
示 其 重要 性 ， 因 为 后 面 你 会 看 到 ， 手 动 把 值 放 回 容 器 是 我 们 自己 的 责任 。 


要 避免 new 关键 字 ， 可 以 借助 一 些 标准 的 JavaScript 技巧 或 者 类 库 达 到 目的 。 
所 以 从 这 里 开始 ， 我 们 就 利用 这 些 技巧 或 类 库 ， 像 一 个 负责 任 的 成 年 人 那样 使 用 
of 。 我 推荐 使 用 folktale 、 ramda 或 fantasy-land 里 的 functor 实例 ， 
因为 它们 同时 提供 了 正确 的 of 方法 和 不 依赖 new 的 构造 器 。 


混合 比喻 





你 看 ， 除 了 太空 墨西哥 卷 (如 果 你 听 说 过 这 个 传言 的 话 ) ( 译 者 注 : 此 处 的 传言 似 
乎 是 说 一 个 叫 Chris Hadfield 的 宇航 员 在 国际 空间 站 做 时 end ， 视频 链 
接 ) ，monad 还 被 喻 为 洋 敬 。 让 我 以 一 个 常见 的 场景 来 说 明 这 


-M/A~ ~ A 
hy | VIOQIIdU 


7 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 
valse= edqunre(e fs 


// readFile :: String -> IO String 
var readFile = function(filename) { 
return new IO(function() { 
return fs.readFileSync(filename, 'utf-8'); 
}); 
}; 


An Sm LO0 Sung 
var print = function(x) { 
return new IO(function() { 
console.1log(x); 
returmn i x; 


jee 


// Example 
= 

ACaee ion sein) 

var cat = compose(map(print), readFile); 


Ca 人 Ednecon 全 di) 
// IO(I0O("[core]xnrepositoryformatversion = QO\n")) 


这 里 我 们 得 到 的 是 一 个 IO ， 只 不 过 它 陷 进 了 另 一 个 I0 。 要 想 使 用 它 ， 我 们 必 


须 这 样 调用 : map(map(f)) ; 要 想 观 察 它 的 作用 ， 必 须 这 样 : 


unsafepPerformIO( ) ,unsafePerformIO( ) ° 


42 
Uy 


/ca ems > (ro Setino, 
var cat = compose(map(print), readFile); 


Wcateinseehan sem > LonLo Semno) 
var catFirstChar = compose(map(map(head)), cat); 


catFirstChar(".git/config") 
WHTEO(GRO( [ee 


尽管 在 应 用 中 把 这 两 个 作用 打包 在 一 起 没什么 不 好 的 ， 但 总 感觉 像 是 在 穿着 两 套 防 
护 服 工作 ， 结 果 就 形成 一 个 稀奇 古怪 的 API。 再 来 看 另 一 种 情况 : 


// SafeProp :: Key -> {Key: a} -> Maybe a 
var safeProp = curry(function(x, obj) { 
return new Maybe(obj[x]); 


}); 


// SsafeHead :: [al -> Maybe a 
Var safeHead = safeProp(0); 


// firstAddressStreet :: User -> Maybe (Maybe (Maybe Street) ) 
Var firstAddressStreet = compose( 

map(map(safeProp('street'))), map(safeHead), safeProp('address 
es") 


Dy 


firstAddressStreet( 
{addresses: [{street: {name: 'Mulburry', number: 8402}, postco 
de: "wc2N" }]} 


); 
// Maybe(Maybe(Maybe({name: 'Mulburry', number: 8402}))) 


这 里 的 functor 同样 是 秦 套 的 ， 函 数 中 三 个 可 能 的 失败 都 用 了 Maybe 做 预防 也 很 
干净 整洁 ， 但 是 要 让 最 后 的 调用 者 调用 三 次 map 才能 取 到 值 未 免 也 太 无 礼 了 点 
一 我 们 和 它 才 刚刚 见面 而 已 。 这 种 歼 套 functor 的 模式 会 时 不 时 地 出 现 ， 而 且 是 
monad 的 主要 使 用 场景 。 


我 说 过 monad 像 洋 苑 ， 那 是 因为 当 我 们 用 map 和 剥 开 睹 套 的 functor 以 获取 它 里 
面 的 值 的 时 候 ， 就 像 剥 洋芋 一 样 让 人 忍 不 住 想 问 。 不 过 ， 我 们 可 以 擦 干 眼 泪 ， 做 个 
深呼吸 ， 然 后 使 用 一 个 叫 作 join 的 方法 。 


var mmo = Maybe.of(Maybe.of("nunchucks")); 
// Maybe(Maybe( "nunchucks")) 


mmo .join(); 
// Maybe("nunchucks") 


var ioio = IO.of(IO.of("pIzza" ) ) ， 
TOIOEDazzaog 骨 


ioio.join() 
/TO( Izzon) 


var ttt = Task.of(Task.of(Task.of("sewers"))); 
// Task(Task(Task("sewers"))); 


ttt.join() 
// Task(Task("sewers")) 


如 果 有 两 层 相 同类 型 的 诅 套 ， 那 么 就 可 以 用 join 把 它们 压 扁 到 一 块 去 。 这 种 结 
合 的 能 力 ，functor 之 间 的 联姻 ， 就 是 monad 之 所 以 成 为 monad 的 原因 。 来 看 看 
它 更 精确 的 完整 定义 : 


monad 是 可 以 变 遍 (flatten) 的 pointed functor。 


一 在 functor ， 只 要 它 定 义 个 了 一 个 加 Wi 请 方 法 和 一 个 国 间 方法 ， 并 遵守 一 些 定 


律 ， 那 么 它 就 是 一 个 monad。 join 的 实现 并 不 太 复 杂 ， 我 们 来 为 EA 定义 
一 个 : 


Maybe.prototype.join = function() { 
return this.isNothing() ? Maybe.of(null) : this. value; 


看 ， 就 像 子宫 里 双胞胎 中 的 一 个 吃 掉 另 一 个 那么 简单 。 如 果 有 一 个 
Maybe(Maybe(x)) ， 那 么 . value 将 会 移 除 多 余 的 一 层 ， 然 后 我 们 就 能 安心 
地 从 那 开 始 进行 map 。 要 不 然 ， 我 们 就 将 会 只 有 一 个 Maybe ， 因 为 从 一 开始 就 
没有 任何 东西 被 map 调用 。 


既然 已 经 有 了 join 方法 ， 我 们 把 monad 魔法 作用 到 firstAddressStreet 
例子 上 ， 看 看 它 的 实际 作用 : 


onmee Monagm =>m(mad > ma 
var join = function(mma){ return mma.join(); } 


// firstAddressStreet :: User -> Maybe Street 
Var firstAddressStreet = compose( 

Join, map(safeProp('street')), join, map(safeHead), safeProp(' 
addresses') 


) 


firstAddressStreet( 
{addresses: [{street: {name: 'Mulburry', number: 8402}, postco 
de: "wc2N" }]} 


); 
// Maybe({name: 'Mulburry', number: 8402}) 


只 要 遇 到 网 套 的 Maybe ， 就 加 一 个 join ， 防 止 它们 从 手中 溜 走 。 我 们 对 I0 
也 这 么 做 试 试看 ， 感 受 下 这 种 感觉 。 


I0.prototype.join = function() { 


return this.unsafePerformI0(); 


同样 是 简单 地 移 除了 一 层 容器 。 注 意 ， 我 们 还 没有 提 及 纯粹 性 的 问题 ， 仅 仅 是 移 除 
过 度 紧 缩 的 包 庄 中 的 一 层 而 已 。 


OOdE ER 二 a 
var log = function(x) { 
return new IO(function() { console.log(x)»; return x, }); 


// SetStyle :: Selector -> CSSProps -> IO DOM 
Var setStyle = curry(function(sel, props) { 
return new IO(function() { return jQuery(sel).css(props); }); 


}); 


// getItem :: String -> IO String 
Var getItem = function(key) { 
return new IO(Cfunction() { return JocalStorage.getIitem(key); } 
); 
}; 


// applyPreferences :: String -> IO DOM 

var applyPreferences = composel( 
Join, map(setStyle('#main')), join, map(l10g), map(JSON.parse), 
getItem 

); 


applyPreferences('preferences').unsafeperformI0(); 
// Object {backgroundColor: "green"} 
// <div style="background-color: 'green'"/> 


getItem 返回 了 一 个 IO String ， 所 以 可 以 直接 用 map 来 解析 它 。 log 和 
setStyle 返回 的 都 是 IO0 ， 所 以 必须 要 使 用 join 来 保证 这 里 边 的 获 套 处 于 
控制 之 中 。 


chain 忒 数 


( 译 者 注 : 此 处 标题 原文 是 “My chain hits my chest”， 是 美国 歌手 M.|.A 单 曲 Bad 
Girls 的 一 名 歌词 。 据 说 这 首 歌 有 体现 女权 主义 。) 





你 可 能 已 经 从 上 面 的 例子 中 注意 到 这 种 模式 了 : 我 们 总 是 在 紧 跟着 map 的 后 面 调 
用 join 。 让 我 们 把 这 个 行为 抽象 到 一 个 叫做 chain 的 函数 里 。 


// chain :: Monad m => (a -> mb) ->ma->mb 
var chain = curry(function(f, m)t{ 

return m.map(f).join(); // 或 者 compose(join, map(f))(m) 
}); 


这 里 仅仅 是 把 map/join 套餐 打包 到 一 个 单独 的 函数 中 。 如 果 你 之 前 了 解 过 
monad， 那 你 可 能 已 经 看 出 来 chain 叫做 >>= ( 读 作 bind) 或 者 

flatMap ; 都 是 同一 个 概念 的 不 同名 称 罢 了 。 我 个 人 认为 ”flatMap 是 最 准确 的 
名 称 ， 但 本 书 还 是 坚持 使 用 chain ， 因 为 它 是 JS 里 接受 程度 最 高 的 一 个 。 我 们 
用 chain 重 构 下 上 面 两 个 例子 : 


// map/ join 
var firstAddressStreet = compose( 

Join, map(safeProp('street')), join, map(safeHead), safeProp(' 
addresses') 


)? 


/le hein 
Var firstAddressStreet = compose( 

chain(safepProp('street')), chain(safeHead), safeProp('addresse 
s') 


); 


// map/join 
var applyPreferences = composel( 
Join, map(setStyle('#main')), join, map(10g), map(JSON.parse), 
getItem 
); 


hehe 
Var applyPreferences = compose( 

chain(setStyle('#main')), chain(1l0g), map(JSON.parse), getIitem 
); 


我 把 所 有 的 map/join 都 替换 为 了 chain ， 这 样 代码 就 显得 整洁 了 些 。 整 洁 
然 是 好 事 ， 但 chain 的 能 力 却 不 止 于 此 一 一 它 更 多 的 是 龙卷风 而 不 是 吸尘器 。 
为 chain 可 以 轻松 地 瞬 套 多 个 作用 ， 因 此 我 们 就 能 以 一 种 纯 函 数 式 的 方式 来 表示 
序列 (sequence) 和 变量 赋值 (variable assignment) 。 


// getJSON :: Url -> Params -> Task JSON 
// querySelector :: Selector -> IO DOM 


getJSON('/authenticate', {username: 'stale', password: 'crackers' 
}) 
.Cchain(function(user) { 
return getJSON('/friends', {user_id: user.id}); 


}); 
”maraski(linamen Seameh de lA mamer eae ce eon 


querySelector("input.username").chain(function(uname) { 
return querySelector("input.email").chain(function(email) { 
return I0.of( 


"Welcome " + Uname.value + " " + "prepare for Spam at " + 
email.value 
); 
}); 


}); 


// I0O("Welcome Olivia prepare for Spam at olivia@tremorcontrol.n 
et"); 


Maybe.of(3).chain(function(three) { 
return Maybe.of(2).map(add(three)); 


}); 
// Maybe(5); 


Maybe.of(null).chain(safeProp('address')).chain(safeProp('street' 


) ) ; 
// Maybe(null); 


:| 
本 来 我 们 可 以 用 compose 写 上 面 的 例子 ， 但 这 将 需要 几 个 帮助 函数 ， 而 且 这 种 风 
格 怎么 说 都 要 通过 闭 包 进行 明确 的 变量 赋值 。 相 反 ， 我 们 使 用 了 插入 式 的 

chain 。 顺 便 说 一 下 ， chain 可 以 自动 从 任意 类 型 的 map 和 join 衍生 出 
来 ， 就 像 这 样 : t.prototype.chain = function(f) { return 


this.map(f).join(); } 。 如 果 手 动 定义 chain 能 让 你 觉得 性 能 会 好 点 的 话 
(实际 上 并 不 会 ) ， 我 们 也 可 以 手动 定义 它 还 必须 要 费力 保证 函数 功能 的 正 
确 性 一 一 也 就 是 说 ， 它 必须 与 | join 的 map 相等 。 如 果 chain 
是 简单 地 通过 结束 调用 of 后 把 值 放 回 容器 这 种 方式 定义 的 ， 那 么 就 会 造成 一 个 
有 趣 的 后 果 ， 即 可 以 从 chain 那里 衍生 出 一 个 map 。 同 样 地 ， 我 们 还 可 以 用 
chain(id) 定义 join 。 听 起 来 好 像 是 在 跟 魔 术 师 玩 德州 扑克 ， 魔 术 师 想 要 什 
么 牌 就 有 什么 牌 ; 但 是 就 像 大 部 分 的 数学 理论 一 样 ， 所 有 这 些 原 则 性 的 结构 都 是 相 
互 关 联 的 。fantasyland 仓库 中 提 到 了 许多 上 述 衍 生 概念 ， 这 个 仓库 也 是 JavaScript 
官方 的 代数 数据 结构 (algebraic data types) 标准 。 


好 了 ， 我 们 来 看 上 面 的 例子 。 第 一 个 例子 中 ， 可 以 看 到 两 个 Task 通过 chain 
连接 形成 了 一 个 异步 操作 的 序列 一 一 它 先 获取 user ， 然 后 用 user,id 查找 
user 的 friends 。 chain 避免 了 Task(Task([Friend])) 这 种 情况 。 


二 个 例子 是 用 querySelector 查找 几 个 input i 。 注意 看 
ee 数 里 访 下 是 防 数 式 变量 赋 
值 的 绝 佳 表现 。 人 I0 大 方 地 把 它 的 值 借 给 了 我 们 ， ww 起 以 同样 方式 
把 值 放 回去 的 责 不 能 辜负 它 的 信任 (还 有 整个 程序 的 信任 ) 。 I0.of 非常 
适合 做 这 Ch ， 6 它 也 解释 了 为 何 pointed 这 一 特性 是 monad 接口 得 以 存在 的 
重要 前 提 。 不 过 ， map 也 能 返回 正确 的 类 型 : 








querySelector("input.username").chain(function(uname) { 

return querySelector("input.email").map(function(email) { 

return "Welcome " + Uname.value + " prepare for Spam at ”十 

email .value; 

}); 
}); 
/A/T0( Welcome OliVvia preparen for spamatlolmviaQderemoreontrogn 
et"); 


最 后 两 个 例子 用 了 Maybe 。 因 为 chain 其 实 是 在 底层 调用 了 map ， 所 以 如 果 
遇 到 null ， 代 码 就 会 立刻 停止 运行 。 


如 果 觉 得 这 些 例 子 不 太 容 易 理解 ， 你 也 不 必 担 心 。 多 跑 跑 代 码 ， 多 琢磨 琢 麻 ， 把 代 
码 拆 开 来 研究 研究 ， 再 把 它们 拼 起 来 看 看 。 总 之 记 住 ， 返 回 的 如 果 是 “普通 " 值 就 用 
map ， 如 果 是 functor 就 用 chain 。 


这 里 我 得 提醒 一 下 ， 上 述 方式 对 两 个 不 同类 型 的 吝 套 容器 是 不 适用 的 。functor 组 
合 ， 以 及 后 面 会 讲 到 的 monad transformer 可 以 帮 ae 对 这 种 情况 。 


这 种 容器 编程 风格 有 时 也 能 造成 困惑 ， 我 们 不 得 不 努力 理解 一 个 值 到 底 瞪 套 了 几 
容器 ， 或 者 需要 用 map 还 是 chain (很 快 我 们 就 会 认识 更 多 的 容器 类 型 ) 
用 一 些 技巧 ， 比 如 重 写 inspect 方法 之 类 ， 能 够 大 幅 提 高 debug 的 效率 。 后 面 
er 

， 有 时 候 也 需要 权衡 一 下 是 否 值 得 这 样 做 。 


我 很 乐意 挥 起 monad 之 剑 ， 向 你 展示 这 种 编程 风格 的 力量 。 就 以 读 一 个 文件 ， 然 
后 就 把 它 直 接 上 传 为 例 吧 : 





/readqenleen relenamen En Smut 
// httpPost :: String -> Future Error JSON 


// Upload :: String -> Either String (Future Error JSON) 
var upload = compose(map(chain(httpPost('/uploads'))), readFile) 


A 


这 里 ， 代 码 不 止 一 次 在 不 同 的 分 支 执行 。 从 类 型 签名 可 以 看 出 ， 我 们 预防 了 三 个 错 
readFile 使 用 Either 来 验证 输入 (或 许 还 有 确保 文件 名 存 

在 ) ; readFile 在 读 取 文件 的 时 候 可 能 会 出 错 ， 错 误 通 过 readFile 的 
Future 表示 ; 文件 上 传 可 能 会 因为 各 种 各 样 的 原因 出 错 ， 错 误 通 过 httpPost 
的 Future 表示 。 我 们 就 这 么 随意 地 使 用 chain 实现 了 两 个 上 谋 套 的 、 有 序 的 弄 
步 执行 动作 。 


~ 
1 天 





所 有 这 些 操作 都 是 在 一 个 从 左 到 右 的 线性 流 中 完成 的 ， 是 完 完全 全 纯 的 、 声 明 式 的 
代码 ， 是 可 以 等 式 推导 (equational reasoning) 并 拥有 可 人 靠 特性 (reliable 
properties ) 的 代码 。 我 们 没有 被 迫使 用 不 必要 甚至 令 人 困惑 的 变量 名 ， 我 们 的 
upload 部 数 符合 通用 接口 而 不 是 特定 的 一 次 性 接口 。 这 些 都 是 在 一 行 代 码 中 完 
成 的 啊 ! 


让 我 们 来 跟 标 准 的 命令 式 的 实现 对 比 一 下 : 


// upload :: String -> (String -> a) -> Void 
var upload = function(filename, callback) { 
if(!filename) { 
throw "You need a filename!"; 
} else { 
readFile(filename, function(err, contents) { 
if(err) throw err; 
httpPost(contents, function(err, json) { 
if(err) throw err,; 
callback(json); 
}); 
}); 


看 看 ， 这 简直 就 是 魔鬼 的 算术 ( 译 者 注 : 此 处 原文 是 “the devil's arithmetic”， 为 美 
1988 年 出 版 的 历史 小 说 ， 讲 述 一 个 犹太 小 女孩 穿越 到 1942 年 的 集中 营 的 故 

事 。 此 书 亦 有 同名 改编 电影 ， 中 译名 《穿梭 集中 营 》) ， 我 们 就 像 一 颗 弹 珠 一 样 在 
变幻 莫 测 的 迷宫 中 穿梭 。 无 法 想象 如 果 这 是 一 个 典型 的 应 用 ， 而 且 一 直 在 改变 变量 
会 怎样 一 “我 们 肯定 会 像 陷 入 沥青 坑 那样 无 所 适 从 。 


理论 


我 们 要 看 的 第 一 条 定律 是 结合 律 ， 但 可 能 不 


| 


你 熟悉 的 那个 结合 律 。 


// 结合 律 


compose(join, map(join)) == compose(Join, join) 


这 些 定律 表明 了 monad 的 嵌 套 本 质 ， 所 以 结合 律 关心 的 是 如 何 让 内 层 或 外 层 的 容 
类 型 join ， 然 后 取得 同样 的 结果 。 用 一 张 图 来 表示 可 能 效果 会 更 好 : 


map (ouw) 


M(M(M a)) M(M a) 


Jouwm Jokwm 


Jobm 


MA 





M(M a) 


从 左上 角 往 下 ， 先 用 join 合并 M(M(M a)) 最 外 层 的 两 个 M ， 然 后 往 右 ， 再 
调用 一 次 join ， 就 得 到 了 我 们 想 要 的 M a 。 或 者 ， 从 左上 角 往 右 ， 先 打开 最 
外 层 的 M ， 用 map(join) 合并 内 层 的 两 个 M ， 然 后 再 向 下 调用 一 次 

join ， 也 能 得 到 M a 。 不 管 是 先 合并 内 层 还 是 先 合 并 外 层 的 M ， 最 后 都 会 得 
到 相同 的 M a ， 所 以 这 就 是 结合 律 。 值 得 注意 的 一 点 是 map(join) != join 。 
两 种 方式 的 中 间 步 骤 可 能 会 有 不 同 的 值 ， 但 最 后 一 个 join 调用 后 最 终结 果 是 一 
样 的 。 


// 同一 律 (M a) 
compose(join, of) == compose(join, map(of)) == id 


这 表明 ， 对 任意 的 monad M ， of 和 join 相当 于 id 。 也 可 以 使 用 
map(of) 由 内 而 外 实现 相同 效果 。 我 们 把 这 个 定律 叫做 "三角 同 一 律 ”(triangle 
identity) ， 因 为 把 它 图 形 化 之 后 就 像 一 个 三 角形 : 


of map (of) 


M(M a) Ma 





MA 


Join 


MA 


如 果 从 左上 角 开 始 往 右 ， 可 以 看 到 of 的 确 把 M a 丢 到 另 一 个 M 容器 里 去 
了 。 然 后 再 往 下 join ， 就 得 到 了 M a ， 跟 一 开始 就 调用 id 的 结果 一 样 。 从 
右上 角 往 左 ， 可 以 看 到 如 果 我 们 通过 map 进 到 了 M 里 面 ， 然 后 对 普通 值 a 
调用 of ， 最 后 得 到 的 还 是 M (M a) ; 再 调用 一 次 join 将 会 把 我 们 带 回 原 
点 ， 即 Ma。 


我 要 说 明 一 点 ， 尽 管 这 里 我 写 的 是 of ， 实 际 上 对 任意 的 monad 而 言 ， 都 必须 要 
使 用 明确 的 M.of 。 


我 已 经 见 过 这 些 定 律 了 ， 同 一 律 和 结合 律 ， 以 前 就 在 哪儿 见 过 ... 等 一 下 ， es 
想 ... 是 的 ! 它们 是 范畴 遵循 的 定律 ! 不 过 二 志 二 着 我 们 苦 要 二 不 给 六 攻 数 来 给 
个 完整 定义 。 见 证 吧 


var mcompose = function(f, g) { 
return compose(chain(f), chain(g)); 


mcompose(M, f) == 


// 右 同一 律 


mcompose(f, M) == 


mcompose(mcompose(f, g), h) == mcompose(f, mcompose(g, h)) 


毕 竞 它们 是 范畴 学 里 的 定律 。monad 来 自 于 一 个 叫 “Kleisli 范畴 "的 范 哮 ， 这 个 范畴 
里 边 所 有 的 对 象 都 是 monad， 所 有 的 态 射 都 是 联结 函数 (chained funtions) 。 我 

不 是 要 在 没有 提供 太 多 解释 的 情况 下 ， 拿 范畴 学 里 各 式 各 样 的 概念 来 取笑 你 。 我 的 
目的 是 涉及 足够 多 ee ， 向 你 说 明 这 中 间 的 相关 性 ， 让 你 在 关注 日 常 实用 特 
性 之 余 ， 激 发 起 对 这 些 定律 的 兴趣 。 


泛 结 


名 


作 


monad 让 我 们 深入 到 歼 套 的 运算 当中 ， 使 我 们 能 够 在 完全 避免 回调 金字 塔 
(pyramid of doom) 情况 下 ， 为 变量 赋值 ， 运 行 有 序 的 作用 ， 执 行 异 步 任 务 等 
等 。 当 一 个 值 被 困 在 几 层 相 同类 型 的 容器 中 时 ，monad 能 够 拯救 它 。 借 助 


“pointed” 这 个 可 靠 的 帮手 ，monad 能 够 借 给 我 们 从 盒子 中 取出 的 值 ， 而 且 知 道 我 
们 会 在 结束 使 用 后 还 给 它 。 


是 的 ，monad 非常 强大 ， 但 我 们 还 需要 一 些 额 外 的 容器 隐 。 比如， 假设 我 们 想 同 
时 运行 一 个 列表 里 的 api 调用 ， 然 后 再 搜集 返回 的 结果 ， 怎 么 办 ? 是 可 以 使 用 
monad 实现 这 个 任务 ， 0 api 和 庆 汉中 证 几 让 。 合并 多 个 合 
法 性 验证 呢 ? 我 们 想 要 的 肯定 是 持续 验证 以 搜集 错误 列表 ， 但 是 monad 会 在 第 一 
个 Left i 


下 一 章 ， 我 们 将 看 到 applicative functor 如 何 融 入 这 个 容器 世界 ， 以 及 为 何在 很 多 
情况 下 它 比 monad 更 好 用 。 


第 10 章 : Applicative Functor 


7 | 

// ========== 

// 给 定 一 个 User ， 使 用 safeProp 和 map/join 或 chain 安全 地 获取 sreet 
的 name 

var safeProp = _.curry(function (x, 0) { return Maybe.of(of[x]); 

}); 

Var user = { 
id 2 


name: "albert", 
address: { 
street: { 
number: 22, 
name: 'Walnut St' 


} 
}e 


var ex1L = undefined; 


第 9 章 : Monad 


// 使 用 getFile 获取 文件 名 并 删除 目录 ， 所 以 返回 值 仅仅 是 文件 ， 然 后 以 纯 的 方式 


打印 文件 


var getFile = function() { 


return new IO(function(){ return __ filename; }); 


var pureLog = function(x) { 
return new IO(function(){ 


conSole.1og(X)， 


returmn™ Jogged Tr x» 


}); 


Var ex2 = undefined; 


// 练习 3 


// 使 用 getPost() 然后 以 post 的 id 调用 getComments() 


var getPost = function(i) { 


return new Task(function (rej, res) { 


setTimeout(function () { 


res({ id: i, title: 


300)5 
}); 


'Love them tasks' }); 


var getComments = function(i) { 


return new Task(function (rej, res) { 


setTimeout(function () { 


res([ 
{post_id: i, 
{post_id: i, 
]); 
D300 


}); 


body: 
body: 


"This book should be illegal"}, 
"Monads are like smelly shallots"} 
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第 9 章 : Monad 


var ex3 = Undefined ， 


// 练习 4 


// 用 validateEmail、addToMailingList 和 emailBlast 实现 ex4 的 类 型 
签名 


// addToMailingList :: Emall -> IO([Emaill) 
var addToMailingList = (function(1list)t{ 
return function(email) { 
return new I0O(function(){ 
list.push(email); 
return list; 
}); 
} 
})([]); 


function emailBlast(1list) { 
return new IO(function(){ 
return 'emailed: ' + list.join(','); 


Ye) 


var validateEmail = function(x){ 
return x.match(/\S+@\S+\.\S+/) ? (new Right(x)) : (new Left('i 
nvalid email' )); 


} 


// ex4 :: Email -> Either String (IO String) 
Var ex4 = undefined; 
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Applicative Functor 


应 用 applicative functor 


考虑 到 其 函数 式 的 出 身 ，applicative functor 这 个 名 称 堪 称 简单 明了 。 函 数 式 程序 
员 最 为 人 诉 病 的 一 点 就 是 ， 总 喜欢 摘 一 些 稀奇 古怪 的 命名 ， 比 如 mappend 或 者 
liftA4 。 诚 然 ， 此 类 名 称 出 现在 数学 实验 室 是 再 自然 不 过 的 ， 但 是 放 在 其 他 任何 
语 境 下 ， 这 些 概 念 就 都 像 是 扮 作 达 斯 维 达 去 汽车 餐馆 搞怪 的 人 。 ( 译 者 注 : 此 处 需 
要 做 些 解释 ，1. 汽车 餐馆 (drive-thru) 指 的 是 那 种 不 需要 顾客 下 车 就 能 提供 服务 的 
地 方 ， 比 如 麦当劳 、 星 巴克 等 就 会 有 这 种 drive-thru ; 2. 达 斯 维 达 (Darth Vader) 
是 《星球 大 战 》 系 列 主要 反派 角色 ， 在 美国 大 众 文 化 中 的 有 着 广泛 的 影响 力 ， 其 造 
型 是 很 多 人 致 数 模 仿 的 对 象 ; 3. 由 于 2 的 缘故 ， 美 国 一 些 星 战 迷 会 扮 作 Darth 
Vader 去 drive-thru 点 单 ，YouTube 上 有 不 少 这 种 搞怪 视频 ; 4. 作者 使 用 这 个 “ 典 
故 " 是 为 了 说 明 函 数 式 里 很 多 概念 的 名 称 有 些 “ 故 弄 辫 虚 ”"， 而 applicative functor 是 
少数 比较 "正常 "的 。) 


无 论 如 何 ，applicative 这 个 名 字 应 该 能 够 向 我 们 表明 一 些 事实 ， 告 诉 我 们 作为 一 个 
接口 ， 它 能 为 我 们 带 来 什么 : 那 就 是 让 不 同 functor 可 以 相互 应 用 (apply) 的 能 
力 。 


然而 ， 你 可 能 会 问 了 ， 为 何 一 个 正常 的 、 理 性 的 人 ， 比 如 你 自己 ， 会 做 这 种 “让 不 同 
functor 相互 应 用 ”的 事 ? 而且 ，“ 相 互 应 用 ”到 底 是 什么 意思 ? 


要 回答 这 些 问题 ， 我 们 可 以 从 下 面 这 个 场景 讲 起 ， 可 能 你 已 经 碰 到 过 这 种 场景 了 。 
假设 有 两 个 同类 型 的 functor， 我 们 想 把 这 两 者 作为 一 个 函数 的 两 个 参数 传递 过 去 来 
调用 这 个 元 数 。 简 单 的 例子 比如 让 两 个 Container 的 值 相 加 : 


add(Container.of(2), Container.of(3)); 
//NaN 


/ 人 击 所 本 人 告 的 条 nn mm Im P 米 a eh 
中 非 时 Map 的 效 反 研 \ 


Var container of add 2 = map(add, Container.of(2)); 


// Container(add(2)) 


这 时 候 我 们 创建 了 一 个 Container ， 它 内 部 的 值 是 一 个 局 部 调用 的 (partially 
applied) 的 元 数 。 确 切 点 讲 就 是 ， 我 们 想 让 Container(add(2)) 中 的 

add(2) 应 用 到 Container(3) 中 的 3 上 来 完成 调用 。 也 就 是 说 ， 我 们 想 把 
一 个 functor 应 用 到 另 一 个 上 。 


巧 的 是 ， 完 成 这 种 任务 的 工具 已 经 存在 了 ， 即 chain 有 也 数 。 我 们 可 以 先 chain 
然后 再 map 那个 局 部 调用 的 add(2) ， 就 像 这样 : 


Container.of(2).chain(function(two) { 
return Container.of(3).map(add(two)); 


} 2 


只 不 过 ， 这 种 方式 有 一 个 问题 ， 那 就 是 monad 的 顺序 执行 问题 : 所 有 的 代码 都 只 
会 在 前 一 个 monad 执行 完毕 之 后 才 执行 。 想 想 看 ， 我 们 的 这 两 个 值 足够 强健 且 相 
互 独立 ， 如 果 仅 仅 为 了 满足 monad 的 顺序 要 求 而 延迟 Container(3) 的 创建 ， 
我 觉得 是 非常 没有 必要 的 。 


事实 上 ， 当 遇 到 这 种 问题 的 时 候 ， 要 是 能 够 无 需 借助 这 些 不 必要 的 函数 和 变量 ， 以 
一 种 简明 扼要 的 方式 把 一 个 functor 的 值 应 用 到 另 一 个 上 去 就 好 了 。 


瓶 中 之 船 





ap 就 是 这 样 一 种 部 数 ， 能 够 把 一 个 functor 的 函数 值 应 用 到 另 一 个 functor 的 值 
上 。 把 这 句 话 快速 地 说 上 5 遍 。 


Container.of(add(2)).ap(Container.of(3)); 
// Container(5) 


// all together now 
Container.of(2).map(add).ap(Container .of(3)); 
// Container(s) 


这 样 就 大 功 告 成 了 ， 而 且 代 码 干 净 整 洁 。 可 以 看 到 ， Container(3) 从 寿 套 的 
monad 元 数 的 牢 物 中 释放 了 出 来 。 需 要 再 次 强调 的 是 ， 本 例 中 的 add 是 被 
map 所 局 部 调用 (partially apply) 的 ， 所 以 add 必须 是 一 个 curry 元 数 。 


可 以 这 样 定义 一 个 ap 函数 : 


Container .prototype.ap = function(other_container) { 
return other_container ,map(this, value); 


记 住 ， this. value 是 一 个 函数 ， 将 会 接收 另 一 个 functor 作为 参数 ， 所 以 我 们 
只 需 map 它 。 由 此 我 们 可 以 得 出 applicative functor 的 定义 : 


applicative functor 是 实现 了 ap 方法 的 pointed functor 
注意 pointed 这 个 前 提 ， 这 是 非常 重要 的 一 个 前 提 ， 下 面 的 例子 会 说 明 这 一 点 。 
讲 到 这 里 ， 我 已 经 感受 到 你 的 疑虑 了 《也 或 者 是 困惑 和 和 恐 惧 ) ; 心态 开放 点 
嘛 ，ap 还 是 很 有 用 的 。 在 深入 理解 这 个 概念 之 前 ， 我 们 先 来 探索 一 个 特性 。 


F.of(x).map(f) == F.of(f).ap(F.of(x)) 


这 行 代 码 翻译 成 人 类 语言 就 是 ，map 一 个 f 等 价 于 ap 一 个 值 为 下 的 
functor。 或 者 更 好 的 译 法 是 ， 你 既 可 以 把 x 放 到 容器 里 然后 调用 map(f) ， 也 
可 以 同时 让 f 和 x 发 生 |it (参看 第 8 章 ) ， 然 后 对 他 们 调用 ap 。 这 让 我 们 
能 够 以 一 种 从 左 到 右 的 方式 编写 代码 : 


Maybe.of(add).ap(Maybe.of(2)).ap(Maybe.of(3)); 
// Maybe(5) 


Task.of(add).ap(Task.of(2)).ap(Task.of(3)); 
// Task(5) 


细心 的 读者 可 能 发 现 了 ， 上 述 代码 中 隐约 有 普通 函数 调用 的 影子 。 没 关系 ， 我 们 稍 


后 会 学 习 ap 的 pointfree 版 本 ; 暂时 先 把 这 当 作 此 类 代码 的 推荐 写法 。 通 过 使 用 
of ， 每 一 个 值 都 被 输送 到 了 各 个 容器 里 的 奇幻 之 地 ， 四 人 世界 
， 每 个 程序 都 可 以 是 异步 的 或 者 是 null 或 者 随便 什么 值 ， 而 且 不 管 是 什么 ， ap 


能 在 这 个 平行 世界 里 针对 这 a 这 就 像 是 在 一 个 瓶子 中 千 


你 注意 到 没 ? 上 例 中 我 们 使 用 了 Task ， 这 是 applicative functor 主要 的 用 武之 
地 。 现 在 我 们 来 看 一 个 更 深入 的 例子 。 
协调 与 激励 


假设 我 们 要 创建 一 个 旅游 网 站 ， 既 需要 获取 游客 目的 地 的 列表 ， 还 需要 获取 地 方 事 
件 的 列表 。 这 两 个 请 求 就 是 相互 独立 的 api 调用 。 





ZEROUeSEIIVOEE 王 IaSKEIGOIGEHNMIE 


var renderpPage = curry(function(destinations, events) { /* rende 
r page */ }); 


Task.of(renderPage).ap(Http.get('/destinations')).ap(Http.get('/ 
events' )) 
// Task("<div>some page with dest and events</div>") 


两 个 请 求 将 会 同时 立即 执行 ， 当 两 者 的 响应 都 返回 之 后 ， renderPage 就 会 被 调 
用 。 这 与 monad 版 本 的 那 种 必须 等 待 前 一 个 任务 完成 才能 继续 执行 后 面 的 操作 完 
全 不 同 。 本 来 我 们 就 无 需 根 据 目 的 地 来 获取 事件 ， 因 此 也 就 不 需要 依赖 顺序 执行 。 


再 次 强调 ， 因 为 我 们 是 使 用 局 部 调用 的 函数 来 达成 上 述 结果 的 ， 所 以 必须 要 保证 
renderpage 是 curry 有 函数 ， 否 则 它 就 不 会 一 直 等 到 两 个 Task 都 完成 。 而 且 如 
果 你 碰巧 自己 做 过 类 似 的 事 ， 那 你 一 定 会 感激 applicative functor 这 个 异常 


简洁 的 接口 的 。 这 就 是 那 种 能 够 让 我 们 离奇 点 "” (singularity) 更 近 一 步 的 优美 代 
码 。 


再 来 看 另外 一 个 例子 。 
// 帮助 函数 : 


/W/o > DOM 
var $ = function(selector) { 
return new IO(function(){ return document.querySelector(select 
or) }); 
} 


// getVal :: String -> IO String 
var getVal = compose(map(_.prop('value')), $); 


// Example: 
0 二 三 三 三 三 三 三 三 三 三 三 三 三 三 
// SignIin :: String -> String -> Bool -> User 


var signIn = curry(function(username, password, remember me){ /* 
STonanonine 


I0.of(signIin).ap(getVal('#email')).ap(getVal('#password')).ap(I0 
.Of (false)); 
// I0O({id: 3, email]: "gg@allin.com"}) 


signIn 是 一 个 接收 3 个 参数 的 curry 函数 ， 因 此 我 们 需要 调用 ap 3 次 。 在 每 
一 次 的 ap 调用 中 ， signIn 就 收 到 一 个 参数 然后 运行 ， 直 到 所 有 的 参数 都 传 进 
来 ， 它 也 就 执行 完毕 了 。 我 们 可 以 继续 扩展 这 种 模式 ， 处 理 任意 多 的 参数 。 另 外 ， 
左边 两 个 参数 在 使 用 getVval 调用 后 自然 而 然 地 成 为 了 一 个 I0 ， 但 是 最 右边 的 
那个 却 需 要 手动 1ift ， 然 后 变 成 一 个 I0 ， 这 是 因为 ap 需要 调用 者 及 其 参 
数 都 属于 同一 类 型 。 


lift 


( 译 者 注 : 此 处 原 标题 是 “Bro, do you even lift?”， 是 一 流行 语 ， 发 源 于 健身 圈 ， 指 
质疑 别人 的 健身 方式 和 效果 并 显示 优越 感 ， 后 扩散 至 其 他 领域 。 再 注 : 作者 书 中 用 
了 不 少 此 类 倡 语 或 俗语 ， 有 时 并 非 在 使 用 但 语 的 本 意 ， 就 像 这 句 ， 完 全 就 是 为 了 好 


玩 。 另 ， 关 于 以 的 概念 可 参看 第 8 章 。) 


我 们 来 试 试 以 一 种 pointfree 的 方式 调用 applicative functor。 因 为 map 等 价 于 
of/ap ， 那 么 我 们 就 可 以 定义 无 数 个 能 够 ap 通用 函数 。 


var liftA2 = curry(function(f，functor1，Tfunctor2) { 
return functori.map(f).ap(functor2); 


} 


VarelaftAs curry(funecelon(f functord functor2 functors)net 
return functori.map(f).ap(functor2).ap(functor3); 


J 
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liftA2 是 个 奇怪 的 名 字 ， 听 起 来 像 是 破败 工厂 里 挑 别 的 货运 电梯 ， 或 者 伪 豪 华 
汽车 公司 的 个 性 车 牌 。 不 过 你 要 是 旦 正 理解 了 ， 那 么 它 的 含义 也 就 不 证 自明 了 : 让 
那些 小 代码 块 发 生 | 活 ， 成 为 applicative functor 中 的 一 员 。 


刚 开 始 我 也 觉得 这 种 2-3-4 的 写法 没什么 意义 ， 看 起 来 又 于 又 没有 必要 ， 毕 竞 我 们 
可 以 在 JavaScript 中 检查 函数 的 参数 数量 然后 再 动态 地 构造 这 样 的 函数 。 不 过 ， 局 
部 调用 (partially apply) 1LiftA(N) 本 身 ， 有 时 也 能 发 挥 它 的 用 处 ， 这 样 的 话 ， 


来 看 看 实际 用 例 : 
// checkEmail :: User -> Either String Email 
// checkName :: User -> Either String String 
// CreateUser :: Email -> String -> IO User 
var createUser = curry(function(email, name) { /* creating... */ 
}); 


Either.of(createUser).ap(checkEmail(user)).ap(checkName(user)); 
// Left("invalid email") 


1iftA2(createUser, checkEmail(user), checkName(user)); 
// Left("invalid email") 


createUser 接收 两 个 参数 ， 因 此 我 们 使 用 的 是 1iftA2 。 上 述 两 个 语句 是 等 价 
的 ， 但 是 使 用 了 1iftA2 的 版 本 没有 提 到 Either ， 这 就 使 得 它 更 加 通用 灵活 ， 
因为 不 必 与 特定 的 数据 类 型 耦合 在 一 起 。 


我 们 试 试 以 这 种 方式 重 写 前 一 个 例子 : 


1iftA2(add, Maybe.of(2), Maybe.of(3)); 
// Maybe(5) 


1iftA2(renderPage, Http.get('/destinations'), Http.get('/events' 
)) 


// Task("<div>some page with dest and events</div>") 
1iftA3(signIn, getVal('#email'), getVal('#password'), I0.of(false 


) ); 
/TO( id 3 emane goalne om 


< 


操作 符 


在 haskell、scala、PureScript 以 及 swift 等 语言 中 ， 开 发 者 可 以 创建 自 定义 的 中 组 
操作 符 (infix operators) ， 所 以 你 能 看 到 到 这 样 的 语法 : 


-- haskell 
add <$> Right 2 <*> Right 3 


// JavaScript 
map(add, Right(2)).ap(Right(3)) 


<$> 就 是 map ( 亦 即 fmap ) ， <*> 不 过 就 是 ap 。 这 样 的 语法 使 得 开发 
者 可 以 以 一 种 更 自然 的 风格 来 书写 函数 式 应 用 ， 而 且 也 能 减少 一 些 括号 。 


免费 开 瓶 器 





我 们 尚未 对 衍生 函数 〈derived function ) 着 墨 过 多 。 不 过 看 到 本 书 介 绍 的 所 有 这 些 
接口 都 互相 依赖 并 遵守 一 些 定律 ， 那 么 我 们 就 可 以 根据 一 些 强 接口 来 定义 一 些 弱 接 
口 了 。 


比如 ， 我 们 知道 一 个 applicative 首先 是 一 个 functor， 所 以 如 果 已 经 有 一 个 
applicative 实例 的 话 ， 毫 无 疑问 可 以 依 此 定义 一 个 functor 。 


这 种 完美 的 计算 上 的 大 和 谐 (computational harmony) 之 所 以 存在 ， 是 因为 我 们 在 
跟 一 个 数学 框架" 打交道。 哪怕 是 莫扎特 在 小 时 候 就 下 载 了 ableton ( 译 者 注 : 一 款 
专业 的 音乐 制作 软件 ) ， 他 的 钢琴 也 不 可 能 弹 得 更 好 。 


前 面 提 到 过 ， of/ap 等 价 于 map ， 那 么 我 们 就 可 以 利用 这 点 来 定义 map 
// 从 of/ap 衍生 出 的 map 
X.prototype.map = function(f) { 


return this.constructor.of(f).ap(this); 


} 


monad 可 以 说 是 处 在 食物 链 的 顶端 因此 如 果 已 经 有 了 一 个 chain 了 有 函数， 那么 
就 可 以 免费 得 到 functor 和 applicative : 


// 从 chain 衍生 出 的 map 
X.prototype.map = function(f) { 
var m = this,; 
return m.chain(function(a) 二 
return m.constructor.of(f(a)); 


}); 


// 从 chain/map 衍生 出 的 ap 


X.prototype.ap = function(other) { 
return this.chain(function(f) { 
return other.map(f); 


}); 
}; 
定义 一 个 monad， 就 既 能 得 到 applicative 也 能 得 functor。 这 一 点 非常 强大 ， 相 
当 于 这 些 * 开 瓶 器 "全 都 是 免费 的 ! 我 们 甚至 可 以 审查 一 个 数据 类 型 ， 然 后 自动 化 这 
个 过 程 。 


应 该 要 指出 来 的 一 点 是 ， ap 的 魅力 有 一 部 分 就 来 自 于 并 行 的 能 力 ， 所 以 通过 
chain 来 定义 它 就 失去 了 这 种 优化 。 即 便 如 此 ， ee 
中 就 能 有 一 个 立即 可 用 的 接口 ， 也 是 很 好 的 。 


为 啥 不 直接 使 用 monad ? 因为 最 好 用 合适 的 力量 来 解决 合适 的 问题 ， 一 分 不 多 ， 一 
分 不 少 。 这 样 就 能 通过 排除 可 能 的 功能 性 来 做 到 最 小 化 认 知 负荷 。 因 为 这 个 原因 ， 
相 比 monad， 我 们 更 倾向 于 使 用 applicative 。 


向 下 的 左 套 结构 使 得 monad 拥有 串 行 计算 、 变 量 赋值 和 暂缓 后 续 执行 等 独特 的 能 
力 。 不 过 见识 到 applicative 的 实际 用 例 之 后 ， 你 就 不 必 再 考虑 上 面 这 些 问题 了 。 


下 面 ， 来 看 看 理论 知识 。 


定律 


就 像 我 们 探索 过 的 其 他 数学 结构 一 样 ， 我 们 在 日 常 编码 中 也 依赖 applicative functor 
一 些 有 用 的 特性 。 首 先 ， 你 应 该 知道 applicative functor 是 “组 合 关闭 ”(closed 
under composition ) 的 ， 意 味 着 ap 永远 不 会 改变 容器 类 型 ( 另 一 个 胜 过 monad 


的 原因 ) ee 是 可 以 把 不 同 的 类 
型 压 栈 的 ， 只 不 过 我 们 知道 它们 将 会 在 整个 应 用 的 过 程 中 保持 不 变 。 


下 面 的 例子 可 以 说 明 这 一 
var tofM = compose(Task.of, Maybe.of); 


1iftA2(_.concat, tOfM('Rainy Days and Mondays'), tOfM(' always 


get me down')); 
// Task(Maybe(Rainy Days and Mondays always get me down)) 


你 看 ， 不 必 担 心 不 同 的 类 型 会 混合 在 一 起 。 


该 去 看 看 我 们 最 喜欢 的 范畴 学 定律 了 : 同一 律 (identity) 。 
同一 律 〈identity ) 


J Bl 


A.of(id).ap(v) == V 
是 的 ， 对 一 个 functor 应 用 id 蕊 数 不 会 改变 Vv 里 的 值 。 比 如 : 


var v = Identity.of("Pillow Pets"); 
Identity.of(id).ap(v) == V 


Identity.of(id) 的 “无 用 性 ?让 我 不 禁 莞 尔 。 这 里 有 意思 的 一 点 是 ， 就 像 我 们 之 
前 证 明了 的 ， of/ap 等 价 于 map ， 因 此 这 个 同一 律 遵 循 的 是 functor 的 同一 
律 : map(id) == id 。 

律 的 优美 之 处 在 于 ， 就 像 一 个 富有 激情 的 幼儿 园 健身 教练 让 所 有 的 小 朋 


使 用 这 些 定 
能 愉快 地 一 块 玩 更 一样 ， 它 们 能 够 强迫 所 有 的 接口 都 能 完美 结合 。 


友 都 
同 态 (homomorphism ) 


// 同 态 
A.of(f).ap(A.of(x)) == A.of(f(x)) 


同 态 就 是 一 个 能 够 保持 结构 的 映射 (structure preserving map) 。 实 际 上 ，functor 
就 是 一 个 在 不 同 范畴 间 的 同 态 ， 因 为 functor 在 经 过 映射 之 后 保持 了 原始 范畴 的 结 
构 。 


事实 上 ， 我 们 不 过 是 把 普通 的 函数 和 值 放 进 了 一 个 容器 ， 然 后 在 里 面 进行 各 种 计 
算 。 所 以 ， 不 管 是 把 所 有 的 计算 都 放 在 容器 里 《等 式 左边 ) ， 还 是 先 在 外 面 进行 计 
算 然 后 再 放 到 容器 里 《等 式 右边 ) ， 其 结果 都 是 一 样 的 。 


一 个 简单 例子 


Either.of(_.toUpper).ap(Either.of("oreos")) == Either.of(_.toUpp 
enmesoreos ))) 


互 换 (interchange) 


互 换 (interchange) 表明 的 是 选择 让 有 函数 在 ap 的 左边 还 是 右边 发 生 lt 是 无 关 
紧要 的 。 


7 
// 工 扎 


v.ap(A.of(x)) == A.of(function(f) { return f(x) }).ap(v) 


这 里 有 个 例子 : 


var v = Task.of(_.reverse); 
var x = 'Sparklehorse',， 


v.ap(Task.of(x)) == Task.of(function(f) { return f(x) }).ap(v) 


组 合 (composition ) 


最 后 是 组 合 。 组 合 不 过 是 在 检查 标准 的 函数 组 合 是 否 适用 于 容器 内 部 的 函数 调用 。 
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A.of(compose).ap(u).ap(v).ap(w) == u.ap(v.ap(w)); 


var U= I0.of(_.toUpper); 
var v = IO.of(_ .concat("& beyond")); 
var w = I0.of("blood bath "); 


I0.of(_.compose).ap(u).ap(v).ap(w) == u.ap(v.ap(w)) 


区 结 


Ed 


八 


处 理 多 个 functor 作为 参数 的 情况 ， 是 applicative functor 一 个 非常 好 的 应 用 场景 
借助 applicative functor， 我 们 能 够 在 functor 的 世界 里 调用 函数 。 尽 管 已 经 可 以 通 
过 monad 达到 这 个 目的 ， 但 在 不 需要 monad 的 特定 功能 的 时 候 ， 我 们 还 是 更 倾向 
于 使 用 applicative functor 。 


至 此 我 们 已 经 基本 介绍 完 容器 的 api 了 ， 我 们 学 会 了 如 何 对 函数 调用 
map 、 chain 和 ap 。 下 一 章 ， 我 们 将 学 习 如 何 更 好 地 处 理 多 个 functor， 以 
及 如 何以 一 种 原则 性 的 方式 拆 解 它 们 。 


Chapter 11: Traversable/Foldable Functors 
练习 


require('./support'); 
var Task = require('data.task'); 
var _ = redquire(' ramda ' ) ， 


// 模拟 浏览 器 的 JocalStorage 对 其 
Var localStorage = {}; 


// 写 一 个 函数 ， 使 用 Maybe 和 ap() 实现 让 两 个 可 能 是 null 的 数值 相 加 。 


// ex1 :: Number -> Number -> Maybe Number 
Var ex1 = function(x, y) { 


第 10 章 : Applicative Functor 
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// 号 一 个 函数 ， 接 收 两 个 Maybe 为 参数 ， 让 它们 相 加 。 使 用 1iftA2 代替 ap()。 


// ex2 :: Maybe Number -> Maybe Number -> Maybe Number 
var ex2 = undefined; 


// 运行 getPost(n) 和 getComments(n)， 两 者 都 运行 完毕 后 执行 泻 染 页 面 的 操 
作 。 (参数 n 可 以 是 任意 值 ) 。 


var makeComments = _.reduce(function(acc, c){ return acc+"<]1i>"+ 
Ca Jpy et 
var render = _.curry(function(p, cs) { return "<div>"+p.title+"< 


/div>"+makeComments(cs); }); 


// ex3 :: Task Error HTML 
var ex3 = undefined; 


// 号 一 个 I0， 从 缓存 中 读 取 player1 和 player2， 然 后 开始 游戏 。 


localStorage.player1 = "toby"; 
localStorage.player2 = "sally"; 


var getCache = function(x) { 
return new IO(function() { return localStorage[x]; }); 


} 


var game = _,curry(function(p1，p2) { return pl1+ ' vs ' + p2; } 
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第 10 章 : Applicative Functor 


ZExX4EEOESIEIO 
var ex4 = Undefined ， 


funcelion geteost (全 要 证 
return new Task(function (rej，res) { 
setTimeout(function () { res({ id: i, 
es 300 
}); 


function getComments(i) 4 
return new Task(function (rej，res) { 
setTimeout(function () { 
res(["This book should be illegal", 
ureos dy 
P3000 
}); 


title: 'Love them futu 


"Monads are like space 
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